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Tie Nitrogen Washout System measures nitrogen elimination on a breath 
basis from the body tissues of a subject breathing pure oxygen. Tie 
system serves as a prototype for a Space Shuttle Life Sciences 
experiment and in the Environmental Physiology Laboratory. Typically, a 
subject washes out body nitrogen for three hours while breathing oxygen 
from a mask enclosed in a positive pressure-oxygen tent. A nitrogen 
washout requires one test operator and the test subject. 

A DEC LSI-11/02 computer is used to (1) control and calibrate the mass 
spectrometer and Skylab spirometer, (2) gather and store experimental 
data (3) and provide limited real time analysis and more extensive 
post-experiment analysis. Five programs are used to gather and store 
the experimental data and perform all the real time control and 
analysi s. 

The Personal Data Input Program collects the data on a subject's 
physical characteristics and body measurements as entered by the test 
operator. Tie body composition and body nitrogen content are calculated 
by the program for one or more processes: (1) Water Immersion, (2) 

Skinfold Process I, (3) Skinfold Process II and (4) Nutrition Journal 
Formula. Body composition and body nitrogen content are also calculated 
from the subject' s known per cent body fat, if available. Tie program 
produces a subject characteristics profile on the printing terminal and 
stores the same information in a data file. 

The Decompression Data Program collects data from a decompression 
experience experiment, then computes the final tissue nitrogen and the 
decompression ratio at the time of final decompression. The data is 
written to a data file suitable for analysis. It types a short report 
on final tissue nitrogen partial pressure and decompression ratio at 
time of final decompression for specified tissue saturation half times. 

The Nitrogen Washout Program controls the gas valving system for the 
mass spectrometer, calibrates the mass spectrometer and spirometer, and 
records all the subject and test data entered by the test operator. It 
samples the spirometer and the gas channels from the mass spectrometer, 
calculates i nspi red/expi red air gas concentrations arid Dreath volumes, 
then writes the data to a floppy disk for storage. It also produces a 
typed report of the nitrogen washout parameters along with one minute 
summaries as the washout proceeds. 

The Nitrogen Data Program reads the information from the nitrogen 
washout and produces a typed report of one of four available reports to 
a printing terminal. The Update Program takes a previously collected, 
unformatted data file generated by the old nitrogen washout program and 
rewrites it to a formatted data file for use with N2DATA report writing 
program or for transfer to the VAX. 
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1.0 PROGRAM DESIGN AND CONCEPTS 

1.1 PERSONAL DATA INPUT PROGRAM 

1.1.1 PURPOSE 

The PDINPT program Is designed to collect descriptive Information on the 
subject's physical characteristics and data from one or more of three skin 
measurement processes for determining body composition. This data Is then 
used to compute nitrogen content information by the water Immersion 
process, by each of the two skinfold processes used, by a nutrition 
journal formula and by a known per-cent body fat from the personal 
characteristics data. 


1.1.2 INPUT FILES AND DATA 

The data is entered by the test operator in response to computer prompts. 
Refer to section 2.1 INPUT DATA AND FORMATS. 


1.1.3 OUTPUT FILES AND REPORTS 

The program stores the data In a file on a floppy disk in device DY1: and 
produces a typed report on the printing terminal. Refer to section 3.1 
PROGRAM OUTPUT, REPORTS AND DATA. 


1.1.4 CALCULATIONS 


1. Body Composition by Water Immersion 

a. Average under water weight from (1 <. N _< 10) (kg) 

b. Water Weight = Average under water weight - under water chair 
weight ( kg) 


d. 


Body volume = 
Body Density = 


Nude Weight - Water Weight 
Water Density 
Nude Weight 
Body Vol ume 


- Residual Vol (L) 


4.95 

e. % Body Fat = (— - 4.50) X 100 

Den si ty 
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2. Body Composition by Skinfold Process I 

a. Biceps skinfold thickness average from three trials (mm) 

b. Triceps skinfold thickness average from three trials (mm) 

c. Subscapular skinfold thickness average from three trials (mm) 

d. Suprailiac skinfold thickness average from three trials (mm) 

e. S * Log of the sun of Biceps average, Triceps average, 
Subscapular average, and Suprailiac average 

f. Body Density 

i. If Male = 1.1610 - (.0632 x S) 

11. If Female = 1.1581 - (.0720 x S) 

4.95 

g. % Body Fat « ( 4.50) x 100 

Den si ty 


3. Body Composition by Skinfold Process II 

a. Midcl avicul ar skinfold thickness average from three trials 
(mm) 

b. Umbilicus skinfold thickness average from three trails (mm) 

c. Anterior mid thigh skinfold thickness average from three 
trials (mm) 

d. S - skinfold thickness sun of Midcl avicul ar average, 
Umbilicus average, and Anterior mid thigh average (mm) 

e. Body Density 

-4 

i. If Male = 1.10938 - (8.267 x 10 ) x S + 

-6 2 -4 

(1.6 x 10 ) x (S) - (2.574 x 10 ) x Age 

-3 

ii. If Female = 1.105339 - (1.1964 x 10 ) x S + 

-6 2 -4 

(3.8 x 10 ) x (S) - (1.069 x 10 ) x Age 

4.95 

f. % Body Fat = { - 4.50) x 100 

Density 
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4. Formula estimation of Body Characteristics from American Journal 
ofCHnieal Nutrition 

a. Volume = 1.015 x Nude Weight - 4.937 (L) 

Nude Weight 

b. Density 

Vol ume 


2454.38 

c. % Body Fat * 52.67 

Weight 

d. % Body Fat Free (lass * 100 - % Body Fat 


e. % Total Body Water 


34.93 


1811.33 

+ ------- 

Weight 


5. Estimated Total Nitrogen Content of Body Before Nitrogen Washout 

a. Fat Weight * % Body Fat x Nude Weight (kg) 

b. Fat Free Mass ■ Nude Weight - Fat Weight (kg) 

c. Essential Lean Body Water Mass * Fat Free Mass x .72 (kg) 

Fat Weight ( kg) 

d. Vol line of Total Fat Tissue = (L) 

.90 kg/Li ter at 37 deg C 

e. Volume of Essential Lean Body Water * 

Essential Lean Body Water Mass (kg) 

(L) 

.9933 kg/Li ter at 37 deg C 

f. Quantity of N2 in Total Fat Tissue = Fat Volume x .067 (L) 

g. Quantity of N2 in Essential Lean Body Water * 

Lean 3ody Water Volume x .013 (L) 

h. Total Body N2 = Fat N2 + Lean Body Water N2 (L) 

Total Body N2 

i. Nitrogen/ kg Body = (L) 

Nude Weight 
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1.2 DECOMPRESSION DATA PROGRAM J 

1.2.1 PURPOSE 

The DECDAT program records the data from a decompression experience In the 
chamber ami types a report on the final tissue partial pressure of 
nitrogen In psi for each of three types of body tissue and the 
decompression ratio for each type of tissue at the time of final 
decompression. Tissues of half saturation time 180 minutes, 240 minutes 
and 360 minutes are used. 


1.2.2 INPUT PILES AND DATA 

The test operator enters the data on the subject's identification, the 
nitrogen partial pressure and duration of washout for each phase of a 
nitrogen washout, the experimental conditions during the chamber run, and 
the subject's symptoms during decompression in the hypobarlc chamber. 
Refer to section 2.2 INPUT DATA AND FORMATS 


1.2.3 OUTPUT FILES AND REPORTS 

The computer calculates the final tissue partial pressure of nitrogen in 
PSI for each of three types of body tissue and the decompression ratio for 
each ?vpe of tissue at the time of final decompression. The program 
pr^ik&ts a summary report on the printing terminal, containing subject 
idcrstl fication, the partial pressure of nitrogen in each of the three 
types of tissue and the decompression ratio for each of the three types of 
tissue. It also produces a data file on a floppy disk which contains all 
the data entered by the test operator and the computed infor, nation in the 
summary on partial pressure of nitrogen in the three types of tissue and 
the decompression ratio for each of the three types of tissue. Refer to 
section 3.2 PROGRAM OUTPUT, REPORTS AND DATA 


1.2.4 CALCULATIONS 


1. Computation of the Final Tissue Partial Pressure in psi of 
Nitrogen after an Exposure of t Minutes 


-kt 

FP = Po + [(Pa - p 0 ) (1 - e )] 

FP: Final Tissue Nitrogen Pressure for a specific tissue type at 

the end of a washout phase 

Po: The original or beginning N2 partial pressure (equivalent to 

ambient N2 pressure in phase 1 of washout) 
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Pa: Die N2 partial pressure in the breathing mediun during the 

washout phase. 

e: Base of natural logarithms 

0.693 

k: 

t 1/2 

t 1/2: Tissue half saturation time in minutes 

0.693: Logarithym to the base e of 2 

2. Equation for the Computation of the Decompression Ratio 

Final Tissue N2 Pressure (psi) 

Decompression Ratio = 

Ambient (or Suit) Pressure (psi) 


1.3 NITROGEN WASHOUT PROGRAM 
1.3.1 PURPOSE 

The N2WASH program is the main program for running the nitrogen washout 
experiment. A read only data file named DAXON.VAL is located on the 
system floppy and contains the initial calibration values used by the 
N2WASH program. Die program prints the data constants and allows the test 
operator to make changes if necessary. It collects data on the subject's 
Identification and the experimental conditions. Die computer calibrates 
the spectrometer and spirometer and collects the test data as the 
experiment runs. 


1.3.2 INPUT FILES AND DATA 

The program prompts the test operator to enter data on the subject's 
identification and the experimental conditions. It collects the test data 
as the experiment runs. Refer to section 2*3 INPUT DA1A AND FORMATS. 


1.3.3 OUTPUT FILES AND REPORTS 

During the washout, test data and one minute summaries are produced on the 
printing terminal. Die test data is also being stored on a floppy disk 
along with the data that was entered by the test operator. Dummy zeroes 

mark the end of data input into the storage file. If a printing terminal 
is used, the hard copy provides a preliminary report on the nitrogen 
washout. A final report is obtained by using the N2DA1A Prograi. Refer 
to section 3.3 PROGRAM OUTPUT, REPORTS AND DATA. 


is 
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1.3. 4 CALCULATIONS 
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1. Calculate Slopes and Intercepts for HI and Lo range N2 and for 02 
and C02. 

CALCNT is the digital count equivalent to the voltage recorded. 
CALPC T is the concentration of a gas In a median. 

9\SSLP Is the slope calculated for a gas. 

GSN1CP is the intercept calculated for a gas. 

Nitrogen-Hi Range 

CALPC T N2 in Air - CALPC T N2 in Gas Mix 

GASSLP - ■* 

CALCNT N2 In Air - CALCNT N2 in Gas Mix 

GSN1CP = CALPC T N2 in Gas Mix - 

(GASSLP Hi N2 * CALCNT N2 in Gas Mix) 


Nitrogen-Lo Range 

CALPC T N2 in Gas Mix - CALPC T N2 in 100% 02 

GASSLP = - - 

CALCNT N2 in Gas Mix - CALCNT N2 in 100% 02 

GSNTCP = CALPC T N2 in 100% 02 - 

(GASSLP Lo N2 * CALCNT N2 in 100% 02) 


Oxygen 

CALPC T 02 in 100% 02 - CALPC T 02 in Gas Mix 
GASSLP = - 

CALCNT 02 in 100% 02 - CALCNT 02 in Gas Mix 

GSNTCP = CALPC T 02 in Gas Mix - 

(GASSLP 02 * CALCNT 02 in Gas Mix) 


Carbon Dioxide 

CALPC TC02 in Gas Mix - CALPC TC02 in 100% 02 

GASSLP = - 

CALPC TC02 in Gas Mix - CALPC TC02 in 100% 02 

GSNTCP = CALPC TC02 in 100% 02 - 

(GASSLP C02 * CALCNT C02 in 100% 02) 
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2. Calculate Slope and Intercept for Calibrating the Spirometer. 
One liter was measured at one volt and one volt equals 410.5 
counts. 

Hi Cal Cnt 3 Lo Cal Cnt + 410.5 

Hi Volume - Lo Volume 

Slope 

Hi Cal CNT - Lo Cal Cnt 

1 li ter - 0 11 ters 1 

Slope 

410.5 410.5 

Intercept => Lo Volute - (Slope x Lo Cal Cnt) 

3. Calculating the Average Digital Computer Count 

live computer samples the gas channels 25/sec and reads the 

digital count equating to the analog voltage. At the end of a 
breath (determined by no increase in voltage in the spirometer) 
the counts are sunmed and divided by the number of samples 
occurlng in the breath. The average digital count is computed 
for the spirometer and is used to compute the volune of a breath. 
An average digital count Is also computed for each gas channel 
and is used to determine the concentration of a gas. 

4. Volune of Breath in Liters 

y » mx + b, where x Is the average digital computer count 

corresponding to average voltage in spirometer during breath. 

5. Gas Concentrations in Expired Breath 

y = mx + b, where x is the average digital computer count 

corresponding to average voltage in qas channel during breath. 

6. N2 Volune of Breath = N2 Concentration * Volune of Breath 

7. M2 Volune for the Minute 3 Sum of N2 volumes for the minute 

8. Total N2 Volune 3 Sum of N2 volumes 
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1.4 NITROGEN DATA PROGRAM 

1.4.1 PURPOSE 

The N2DATA Program uses a data file from the N2WASH program to type a 
formatted report of the Nitrogen Washout Expeirment. 


1.4.2 INPUT FILES AND DATA 
« 

The input data for N2DA TA is stored on a floppy disk in a data file 
created by tne N2WASH program. Refer to section 2.4 INPUT DATA AND 
FORMATS 


1.4.3 OUTPUT FILES AND REPORTS 

There are four types of reports produced by the N2DA1A program. 

(1) A short report types the data on subject identification and 
experimental condi tons with a sunmary of the average breath volune, 
average nitrogen volume per breath, average oxygen concentration per 
breath, average nitrogen concentration per breath, average carbon 
dioxide concentration per breath, total nitrogen expired and total 
number of breaths. 

(2) A full report types the data on subject identification and 
experimental conditions with a breath by breath account of breath 
number, elapsed time in seconds, breath volume, nitrogen volume per 
breath, oxygen concentration per breath, nitrogen concentration per 
breath and carbon dioxide concentration per breath. It also types a 
sunmary of the average breath volune, average nitrogen volune per 
breath, average oxygen concentration per breath, average nitrogen 
concentration per breath, average carbon dioxide concentration per 
breath, total nitrogen expired and total number of breaths. 

(3) A One Minute Interval report types the data on subject 
identification and experimental conditions with elapsed time in minutes 
and one minute readings of C02 ml/min, 02 ml/min, N2 ml/min, N2 ml/ kg of 
body-mass/mi n, N2 Out ( Torr)/minute, cumulative N2 washed out, 
cuiimul ative % of N2 estimate washed out, and the metabolic rate for the 
minute as C02 * 1362.4. It also types a sunmary of the average breath 
volune, average nitrogen volume per breath, average oxygen concentration 
per breath, average nitrogen concentration per breath, average carbon 
dioxide concentration per breath, total nitrogen expired and total 
nuiiber of breaths. 
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(4) A Five Minute Interval report types the data on subject 
identification and experimental conditions with five minute readings of 
C02 ml /five-minute Interval, 02 ml/ five-minute Interval, N2 
ml/ five-minute interval, N2 ml/ kg of body-mass/ five minute interval, N2 
Out ( Torr) /minute, cummulative N2 washed out, cir.imul ative " of N2 
estimate washed out, and the metabolic rate for five minutes ns C02 * 
1362.4. It also types a summary of the average breath volume, average 
nitrogen volume per breath, average oxygen concentration per breath, 
average nitrogen concentration per breath, average carbon dioxide 
concentration per breath, total nitrogen expired and total number of 
breaths. Refer to section 3.4 PROGRAM OUTPUT, REPORTS ANO !)A1A 


1.4.4 CALCULATIONS 

1. C02 and 02 Vol une/Breath in Liters x Breath Volume 
C02 Volume 02 Concentration x Breath Volume 

02 Volume = 02 Concentration * Breath Volume 

2. Pie N2, 02, and C02 Volume in ml for Interval 
N2 = Sum of N2 x 1000 

02 = Sum of 02 x 1000 
C02 = Sum of C02 x 1000 

3. Pie 1 Minute Average N2 Concentration 

Sum of N2 Concentration Readings 
Number of Readings 

4. Pie 1 Minute N2 ml/ kg of Body Weight 

N2 Volume in ml 
Body Weight in kg 

5. Pie Cummulative N2 Eliminated by 1 Minute Intervals 

= Sum of N2 Eliminated in Previous Intervals 

6. Pie % of Estimated Body N2 Content Eliminated by 1 Minute 
Interval s 

(Cummulative N2 / 1000) 

= ( - ) x 100 

Estimated N2 Content of Body 
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7. The Metabolic Rate ( i3TU/lir) during the 1 Minute Interval 

* Liters of C02 Eliminated per Minute x 1362.4 

8. Hie 5 Minute Average N2 Concentration 

Sum of N2 Concentration Readings 
Number of Readings 

9. Hie 5 Minute N2 nil/ kg of Cody Weight 

N2 Volume In ml 
Body Weight In kg 

10. Hie Cumniulatlve N2 Eliminated by 5 Minute Intervals 

= Sum of N2 Eliminated in Previous Intervals 

11. Hie Hi of Estimated Body N2 Content Eliminated by 5 Minute 
Interval s 

(Cummulative N2 (ml) / 1000) 

= ( - ) x 100 

Estimated N2 Content of Body 

12. The Metabolic Rate ( tiTU/hr) during the 5 Minute Interval 

= Average Liters of C02 Eliminated per Minute x 1362.4 

13. Average of Breath Volumes 

14. Average of N2 Vol une of Breath 

15. Average N2 Concentration per Breath 
13 . Average 02 Concentration per Breath 
17. Average C02 Concentration per Breath 
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1.5 UPDATE PROGRAM 
1.5a PURPOSE 


Die UPDATE program was designed for limited use. It reads the unformatted 
data stored on a floppy disk file from an earlier version nitrogen washout 
program and writes it to another file so that it is formatted. It also 
records blanks or zeroes for the header information data which was not 
included in the early nitrogen washouts. Tie updated data floppy disk 
file format is then Identical to the ones being produced by the current 
version of the nitrogen washout program. 


1.5.2 INPUT FILES AND DATA 

Tie input for UPDATE is the unformatted data stored on a floppy disk file 
from an earlier version of the nitrogen washout program. Refer to 2.5 
INPUT DATA FORMATS. 


1.5.3 OUTPUT FILES AND REPORTS 

UPDATE creates a formatted file on a floppy disk which is Identical to the 
format of the files being produced by the current version of the nitrogen 
washout program. P&fer to section 3.5 PROGRAM OUTPUT REPORTS AND DATA. 
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2.0 INPUT DATA AND FORMATS 

2.1 PERSONAL DATA INPUT PROGRAM 

The following table lists the variables which the test operator will be 
asked to enter. 


INPUT VARIABLE 

FORMAT 

UNITS 

RANGE 

FILENAME 

(FILENAME. EXT, 

e.g., SMITH. PD I) 


SUBJECT ID CODE 

(XXX-XX-XXXX) 



DATE OF DATA 
COLLECTION 

(MM/DD/YY) 



DATE OF BIRTH 

(MM/DD/YY) 



AGE 

(XX) 

yrs 

0-99 

SEX 

(A) 


(M/F) 

HEI&i T 

(XXX. X) 

cm 

0.0-250.0 

NUDE WEIGH T 

(XXX. X) 

kg 

0.0-250.0 

KNOWN % BODY FAT 

(XX. X) 


0.0-99.9 


WATER IMMERSION PROCESS 


WATER TEMP 

(XX. XX) 

deg C 

0.0-99.99 

WATER DENSITY 

(X.XXX) 

kg/L 

0.0-9.999 

RESIDUAL VOLUME 

(XX. XX) 

L 

0.0-99.99 

UNDER WATER 
CHAIR WEIGH T 

(XX. XX) 

kg 

0.0-99.99 

NUMBER OF TRIALS 

(XX) 


1-10 

(Let N represent the number of the trial 
from 1 to the number of trials.) 

and let N increase 

UNDER WATER 
WEIGH T N 

(XX. XX) 

kg 

0.0-99.99 

MEASUREMENT DATE 

(MM/DD/YY) 
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SKINFOLD PROCESS I 


BODY SIDE USED 

(A) 


(R/L) 

NUMBER OF TRIALS 

(X) 


1-3 

(Let N represent the number of the trial 
from 1 to the number of trials.) 

and let N Inurease 

BICEPS N 

(XX.XX) 

nun 

0.0-99.99 

TRICEPS N 

(XX. XX) 

MW 

0.0-99.99 

SUBSCAPULAR N 

(XXX. X) 

mm 

0.0-250.0 

SUPRAILIAC N 

(XXX. X) 

nun 

0.0-250.0 

DATE 

OF MEASUREMENTS 

(MM/DD/YY) 




SKINFOLD PROCESS II 


BODY SIDE USED 

(A) 


(R/L) 

NUMBER OF TRIALS 

(X) 


1-3 

(Let N represent the number of the trial 
from 1 to the number of trials.) 

and let 

N increase 

MIDCLAVICULAR N 

(XXX. X) 

m 

0.0-250.0 

UMBILICUS N 

(XXX. X) 

mm 

0.0-250.0 

ANTERIOR 
MID-THIQT N 

(XXX. X) 

mm 

0.0-250.0 

nA TF (V 
MEASUREMENTS 

(MM/DD/YY) 
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2.2 DECOMPRESSION DATA PROGRAM 


Tlie following table lists the variables which the test operator will be 


asked to enter. 




INPUT VARIABLES 

FORMAT 

UNITS 

RANGE 

FILENAME 

(FILENAME .EXT, 

e.g., SMITH. DEC) 

SUBJECT I DC ODE 

(XXX-XX-XXXX) 



TEST NUMBER 

(XX) 


(1-99) 

TEST DA TE 

(MM-DD-YY) 



INITIAL PARTIAL 
PRESSURE OF NITROGEN 

(XX.XX) 

PSI 

(4.0-20.99) 

NUMBER OF 
WASHOUT PHASES 

(XX) 


(1-10) 

(Let N represent the number of the washout phase and 
from 1 to the number of washout phases so that these 
Items are entered for each phase) 

let N Increase 
next two 

PARTIAL PRESSURE 
OF NITROGEN IN 
WASHOUT PHASE N 

(XX.XX) 

PSI 

(0.0-12.99) 

DURATION OF 
WASHOUT PHASE N 

(XXXX) 

MIN 

(0-1440) 

FINAL PRESSURE 

(XX.XX) 

PSIA 

(0.0-10.99) 

TEMPERATURE 

(XX) 

deg C 

(0-40) 

TIME OF FINAL 
DECOMPRESSION 

(HH:MM) 

nrsimin 

0-24:0-59 

TIME OF 

RffiOMPRESSION ' 

(HH:MM) 

hrsimln 

0-24:0-59 

EXERCISE LEVEL 

(L/M/H) 



BUBBLES MEASURED? 

(Y/N) 



BUBBLES PRESENT? 

(Y/N) 



TIME OF ONSET 
OF BUBBLES 

(HH:MM) 

hrsimin 

0-24:0-59 

TIME OF REMISSION 
OF BUBBLES 

(HH:MM) 

hrs :m1 n 

0-24:0-59 
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PRESSURE AT REMISSION 
OF HUBBLES 

(XX. X) 



BENDS PRESENT? 

(Y/N) 



LOCATION OF BENOS 

( Text) 



TIME OF ONSET OF BENDS 

(HH 5 MM) 

ht'sittiin 

0-24:0-59 

TIME OF REMISSION 
OF BENOS 

(HHjMM) 

hrs.'niin 

0-24:0-59 

PRESSURE AT REMISSION 
OF BENDS 

(XX. X) 
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2.3 NITROGEN WASHOUT PROGRAM 

The following table lists the variables which the test operator will be 
asked to enter. 


INPUT VARIABLES 

FORMAT 

UNITS 

RANGE 

FILENAME 

(FILENAME. EXT, e. 

g., SMI TH.N2W) 


DATE 

(MM/DD/YY) 


* 

NAME 

(Up TO 30 CHAR) 



SUBJECT I DC ODE 

(xxx-xx-xxxx) 



SU8JEC T AGE 

(XX) 

yrs 

(0-99) 

EXTERNAL TEMP 

(xx.xx) 

deg C 

(0.0-99.99) 

EXTERNAL GRAVITY 

(1/0) 



SUBJECT IMMERSED 

(Y/N) 



BODY POSI TIUN CODE 

(XX) 


(0-99) 

AMBIENT PRESSURE 

(xxx.xx) 

mm Hg 

(0.0-999.99) 

DRUG CODE 

(xx) 


(0-99) 

EXERCISE CODE 

(xx) 


(0-99) 

BREATHING MIXTURE CODE 

(XX) 


(0-99) 

BODY HYDRATION CODE 

(xx) 


(0-99) 

AMBIENT CAS CODE 

(XX) 


(0-99) 

STARTING TIME 

(HH :MM) 

hrs :mi n 

0-24:0-59 

SPECIAL CONOITION CODE 

(XX) 



COMMENTS 

(UP TO 4 LINES OF 

TEXT) 
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2.4 NITROGEN DATA PROGRAM 


The Input data for N2DATA Is the formatted data stored on a floppy disk 
from a nitrogen washout. The test operator supplies the name of the data 
file In which the data Is stored and answers yes or no to the question, 
"Do you want a full report?" If the answer Is "no" a short report Is 
produced. 


2.5 UPDATE PROGRAM 

The Input data for the UPDATE program Is the unformatted data stored on a 
floppy disk from an early nitrogen washout. The test operator enters the 
name of the data file where the unformatted data Is stored and the name of 
the file where he would like the newly formatted data to be stored. The 
program puts zeros or blanks In the new data file for the new variables 
created In the modified nitrogen washout program. 


17 


3.0 PROGRAM OUTPUT, REPORTS AND DATA 

3.1 PERSONAL DATA INPUT PROGRAM 

The following table lists all the variables whieh are output in the hard 
copy report and which are stored on a data floppy for later use. 


OUTPUT VARIABLE 

FORMAT 

UNITS 


DESCRIPTIVE OUTPUT 

SUBJECT ID CODE 

(XXX-XX-XXXX) 


FILENAME 

(FILENAME. EXT, 

e.g., SMITH. PDI) 

i> BODY FAT 

(XX.X) 


NUDE WEIGHT 

(XXX.X) 

kg 

CATE OF BIRTH 

(DD/MON/YY) 



BODY COMPOSITION OUTPUT BY WATER IMMERSION 

NUDE WEIGHT 

(XXX. XX) 

kg 

WATER TEMP 

(XX. XX) 

deg C 

RESIDUAL VOLUME 

(XX. XX) 

L 

WATER DENSITY 

(X.XXX) 

kg/L 

UNDER WATER 
CHAIR WEIGHT 

(XX. XX) 

kg 

AVERAGE UNDER 
WATER WEIGH T 

(XX. XX) 

kg 

(Let N represent the number of the trial 
from 1 to the number of trials.) 

and let N increase 

TRIAL H UNDER 
WATER WEIGHT 

(XX. XX) 

kg 

WATER WEIGH T 

(XX. XX) 

kg 

BODY VOLUME 

(XX.XX) 

L 

BODY DENSITY 

(XX.XX) 

kg/L 

% BODY FAT 

(XX.XX) 
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BODY COMPOSITION OUTPUT BY SKINFOLD PROCESS I 


BODY SIDE USED (RIGHT/LEFT) 

DATE (DD/MON/YY) 

(Let N represent the number of the trial and let N increase 


from 1 to the number of trials.) 

TRIAL N BICEPS (XX. XX) mm 

TRIAL N TRICEPS (XX. XX) mm 

TRIAL N SUBSCAPULAR (XX. XX) mm 

TRIAL N SUPRA ILIAC (XX. XX) mm 

AVERAGE BICEPS (XX. XX) mm 

AVERAGE TRICEPS (XX. XX) mm 

AVERAGE SU89CAPULAR (XX. XX) mm 

AVERAGE SUPRA ILIAC (XX. XX) mm 

BODY DENSI1Y (X.XXX) kg/L 

% BODY FAT (XX. XX) 


BODY COMPOSITION OUTPUT BY SKINFOLD PROCESS II 
BODY SIDE USED (RIGHT/LEFT) 

DATE (DD/MON/YY) 

(Let N represent the number of the trial and let N increase 
from 1 to the nunber of trials.) 


TRIAL N MIDCLAVICULAR 

(XX. XX) 

mm 

TRIAL N UMBILICUS 

(XX. XX) 

mm 

TRIAL N ANTERIOR 
MID- THIGH 

(XX. XX) 

mm 

AVERAGE MIDCLAVICULAR 

(XX. XX) 

mm 

AVERAGE UMBILICUS 

(XX. XX) 

mm 

AVERAGE ANTERIOR 
MID-THIGH 

(XX. XX) 

mm 
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BODY DENSITY 
% BODY FAT 


(X.XXX) 
(XX, XX) 


kg/L 


BODY COMPOSITION OUTPUT BY NUTRITION JOURNAL FORMULA 


BODY VOLUME 

(XXX. XX) 

L 

BODY DENSITY 

(XX. XXX) 

kg/L 

% BODY FAT 

(XX. XX) 


% FAT FREE MASS 

(XX. XX) 


% TOTAL BODY WATER 

(XX. XX) 



NITROGEN CONTENT OUTPUT FOR EACH OF THE 5 METHODS 
(1) DESCRIPTIVE DATA - KNOWN % BODY FAT 


% BODY FAT 

(XX. XX) 


FAT WEIGH T 

(XX. XX) 

kg 

FAT FREE MASS 

(XX. XX) 

kg 

LEAN BODY WATER MASS 

(XX. XX) 

kg 

FAT VOLUME 

(XX. XX) 

L 

LEAN BODY WATER VOLUME 

(XX. XX) 

L 

NITROGEN IN FAT 

(X.XXX) 

L 

NITROGEN IN LEAN 
BODY WATER 

(X.XXX) 

L 

TOTAL BODY NITROGEN 

(X.XXX) 

L 

NITROGEN/KG BODY WEIGHT 

(X.XXXX) 

L 
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(2) WATER IMMERSION PROG ESS 


% BODY FAT 

(XX. XX) 


FAT WEIGHT 

(XX. XX) 

kg 

FAT FREE MASS 

(XX.XX) 

kg 

LEAN BODY WATER MASS 

(XX. XX) 

kg 

FAT VOLUME 

(XX.XX) 

L 

LEAN BODY WATER VOLUME 

(XX.XX) 

L 

NITROGEN IN FAT 

(X.XXX) 

L 

NITROGEN IN LEAN 
BODY WATER 

(X.XXX) 

L 

TOTAL BODY NITROGEN 

(X.XXX) 

L 

NITROGEN/KG BODY WEIGHT 

(X.XXXX) 

L 


(3) SKINFOLD 

PROCESS I 

% BODY FAT 

(XX.XX) 


FAT WEIGHT 

(XX.XX) 

kg 

FAT FREE MASS 

(XX.XX) 

kg 

LEAN BODY WATER MASS 

(XX.XX) 

kg 

FAT VOLUME 

(XX.XX) 

L 

LEAN BODY WATER VOLUME 

(XX.XX) 

L 

NITROGEN IN FAT 

(X.XXX) 

L 

NITROGEN IN LEAN 
BODY WATER 

(X.XXX) 

L 

TOTAL BODY NITROGEN 

(X.XXX) 

L 

NITROGEN/KG 
BODY WEIGHT 

(X.XXXX) 

L 
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% BODY FAT 
FAT WEIGHT 
FAT FREE MASS 
LEAN BODY WATER MASS 
FAT VOLUME 

LEAN BODY WATER VOLUME 
NITROGEN III FAT 

NITROGEN IN LEAN 
BODY WATER 

TOTAL BODY NITROGEN 

NITROGEN/KG BODY WEIGHT 

(5) 

% BODY FAT 
FAT WEIGHT 
FAT FREE MASS 
LEAN BODY WATER MASS 
FAT VOLUME 

LEAN BODY WATER VOLUME 

NITROGEN IN FAT 

NITROGEN IN LEAN 
BODY WATER 

TOTAL BODY NITROGEN 

NITROGEN/KG BODY WEIGHT 


(4) SKINFOLD PROCESS II 


(XX. XX) 

(XX. XX) kg 
(XX. XX) kg 
(XX. XX) kg 
(XX. XX) L 
(XX. XX) L 
(X.XXX) L 

(X.XXX) L 
(X.XXX) L 
(X.XXXX) L 

NUTRITION JOURNAL FORMULA 
(XX. XX) 

(XX. XX) kg 
(XX. XX) kg 
(XX. XX) kg 
(XX. XX) L 
(XX. XX) L 
(X.XXX) L 

(X.XXX) L 
(X.XXX) L 
(X.XXXX) L 
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3.2 DECOMPRESSION DATA PROGRAM 


Die DECDAT Output consists of the hard copy from the printing terminal of 
all the Input variables as they are entered by the test operator and the 
summary generated by the computer of the final tissue nitrogen partial 
pressure and decompression ratio at time of final decompression for each 
of the three types of tissues. Tissues of half saturation time 180 
minutes, 240 minutes and 360 minutes will be used. The following table 
lists the variables calculated by the computer which make up the suiimary. 


OUTPUT VARIABLE FORMAT 


PARTIAL PRESSURE OF 

NITROGEN IN 180 TISSUE (XX. X) 

PARTIAL PRESSURE OF 

NITROGEN IN 240 TISSUE (XX.X) 

PARTIAL PRESSURE OF 

NITROGEN IN 360 TISSUE (XX.X) 

DECOMPRESSION RATIO 

FOR 180 TISSUE (XX.X) 

DECOMPRESSION RATIO 

FOR 240 TISSUE (XX.X) 


DECOMPRESSION RATIO 

FOR 360 TISSUE (XX.X) DECDAT also writes a formatted data file 

containing the variables on subject Identification, washout data, 
experimental conditions and the data on the chamber run. 


RECORD 1 


ITEM 

FORMAT 

ST? 

IDCODE 

11A1 

1 

TEST NUM6ER 

12 

12 

TEST DATE 

8A1 

14 

NUM8ER OF PHASES 

12 

22 

INI TAL PARTIAL 
PRESSURE OF N2 

F5.2 

24 

FINAL PRESSURE 

F5.2 

29 

TEMPERATURE 

12 

34 

TIME OF FINAL 
DECOMPRESSION 

5A1 

36 
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TIME OF RECOMPRESSION 

5A1 

41 


EXERCISE LEVEL 

AI 

46 


RUBBLES MEASURED? 

A1 

47 


BUBBLES PRESENT? 

Al 

48 


RECORD 2 




ITEM 

FORMAT 

STARTING COLUMN 


(Let N represent the number of the washout phase and let N increase from 1 
to 

the number of phases so that partial pressure is entered for each phase.) 

PARTIAL PRESSURE OF 
N2 DURING PHASE N 

F5.2 

1 


RECORD 3 




ITEM 

FORMAT 

STARTING COLUMN 


(Let N represent the number of the washout phase and let N increase 
to 

the number of phases so that duration of phase is entered for each 

from 1 
phase.) 

DURATION OF PHASE N 

14 

1 


RECORD 4 




ITEM 

FORMAT 

STARTING COLUMN 


BUBBLES GRADE 1 
ONSET TIME 

5A1 

1 


BUBBLES GRADE 2 
ONSET TIME 

5A1 

6 


BUBBLES GRADE 3 
ONSET TIME 

5A1 

11 


BUBBLES GRADE 4 
ONSET TIME 

5A1 

16 


RECORD 5 




ITEM 

FORMAT 

STARTING COLUMN 


BUBBLES GRADE 1 
REMISSION TIME 

5A1 

1 


BUBBLES GRADE 2 
REMISSION TIME 

5A1 

6 
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BUBBLES GRADE 3 
REMISSION TIME 

5Ai 

11 

BUBBLES GRADE 4 
REMISSION TIME 

5A1 

16 

RGCORD 6 



ITEM 

FORMAT 

STARTING COLUMN 

BUBBLES GRADE 1 
REMISSION PRESSURE 

F4.1 

1 

BUBBLES GRADE 2 
REMISSION PRESSURE 

F4.1 

5 

BUBBLES GRADE 3 
REMISSION PRESSURE 

F4.1 

9 

BUBBLES GRADE 4 
REMISSION PRESSURE 

F4.1 

13 

RECORD 7 



ITEM 

FORMAT 

STARTING COLUMN 

BENDS PRESENT? 

A1 

1 

BEMDS LOCATION? 

15A1 

2 

RECORD 8 



ITEM 

FORMAT 

STARTING COLUMN 

BENDS GRADE 1 
ONSET TIME 

5A1 

1 

BENDS GRADE 2 
ONSET TIME 

5A1 

6 

BENDS GRADE 3 
ONSET TIME 

5A1 

11 

BENDS GRADE 4 
ONSET TIME 

5A1 

16 

RECORD 9 



ITEM 

FORMAT 

STARTING COLUMN 

BENDS GRADE 1 
REMISSION TIME 

5A1 

1 
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BENDS GRADE 2 
REMISSION TIME 

BENDS GRADE 3 
REMISSION TIME 

BENDS GRADE 4 
REMISSION TIME 

RECORD 10 

ITEM 

BEWS GRADE 1 
REMISSION PRESSURE 

BENOS GRADE 2 
REMISSION PRESSURE 

BENOS GRADE 3 
REMISSION PRESSURE 

BENDS GRADE 4 
REMISSION PRESSURE 

RECORD 11 

ITEM 

PARTIAL PRESSURE OF 


NITROGEN IN 180 TISSUE 

F5.2 

1 

PARTIAL PRESSURE OF 
NITROGEN IN 240 TISSUE 

F5.2 

6 

PARTIAL PRESSURE OF 
NITROGEN IN 360 TISSUE 

F5.2 

11 

DECOMPRESSION RATIO 
FOR 180 TISSUE 

F4.2 

16 

DECOMPRESSION RATIO 
FOR 240 TISSUE 

F4.2 

20 

DECOMPRESSION RATIO 
FOR 360 TISSUE 

F4.2 

24 


SA1 

5A1 

5A1 

FORMAT 
F4.1 
F4. 1 
F4.1 
F4.1 


6 

11 

16 

STARTING COLUMN 
1 
5 
9 

13 


FORMAT 


STARTING COLUMN 
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3.3 NITROGEN WASHOUT PROGRAM 

THE NITROGEN WASHOUT program output consists of a data file and the data 
which was output to the printing terminal during the run. 


The data file contains all of 
identification and experimental 
the run. For each breath there is 


Record 1 


ITEM 

FORMAT 

NAME 

30A1 

DATE 

8A1 

IDCODE 

11A1 

AGE 

12 

EXTERNAL 


TEMPERATURE 

F7.2 

EXTERNAL 


GRAVI TV 

11 

IMMERSION? 

A1 

BODY POSITION CODE 

12 

AMBIENT PRESSURE 

F7.2 

DRUGS CODE 

12 

EXERCISE CODE 

12 

BREATHING MIXTURE CODE 

12 

BODY HYDRATION CODE 

12 

AMBIENT GAS CODE 

12 

STARTING TIME 

5A1 

SPECIAL CONDITION CODE 

12 

COMMENTS? 

A1 


the Input variables on subject 
conditions plus the values collected In 

• 

STARTING COLUMN 
1 

31 

39 

50 

52 

59 

60 
61 
63 
70 
72 
74 
76 
78 
80 
85 
87 
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RECORD 2 


ITEM 

FORMAT 

STARTING COLUMN 

COMMENT 

80A1 

1 

RECORD 3 



ITEM 

FORMAT 

STARTING COLUMN 

COMMENT 

80A1 

1 

RECORD 4 



ITEM 

FORMAT 

STARTING COLUMN 

COMMENT 

80A1 

1 

RECORD 5 



ITEM 

FORMAT 

STARTING COLUMN 

COMMENT 

80A1 

1 

RECORD 6 thru N, where 

N is trie number of breaths 

ITEM 

FORMAT 

STARTING COLUMN 

BREATH NUMBER 

14 

1 

ELAPSED TIME 

F10.1 

5 

BREATH VOLUME 

F10.5 

15 

NITROGEN VOLUME 
IN BREATH 

F10.5 

25 

CONCENTRATION OF 
02 IN BREATH 

F10.5 

35 

CONCENTRATION OF 
N2 IN BREATH 

F10.5 

45 

CONCENTRATION OF 
C02 IN BREATH 

F10.5 

55 


The data file end is marked by dunmy zero values for the variables in the 
1 ast record. 
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The output to the printing terminal consists of the input variables on 
subject identification and experimental conditions and the following 
parameters for each breath: 

1. Breath number 

2. Elapsed time in seconds 

3. Breath volume in liters 

4. Nitrogen volume per breath in liters 

5. Concentration of nitrogen in breath 

At the end of every minute there Is a sunmary of elapsed minutes, nitrogen 
eliminated for the minute and total nitrogen eliminated. 
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3.4 NITROGEN DATA PROGRAM 


The N2DATA Program produces a hard copy report on the printing terminal of 
the data from a nitrogen washout. 

The output for a short report is: 

1. Subject identi fication 

2. Experimental conditions 

3. Average breath volume 

4. Average nitrogen volume per breath 

5. Average oxygen concentration per breath 

6. Average nitrogen concentration per breath 

7. Average carbon dioxide concentration per breath 

8. Total nitrogen expired 

9. Total number of breaths 


A full report requires about 20 minutes. The output for a full report is 
the subject's identification, experimental conditions and the breath by 
breath account of: 

1. Breath number 

2. Elapsed time 

3. Breath vol ume 

4. Nitrogen volume in breath 

5. Oxygen concentration in breath 

6. Nitrogen concentration in breath 

7. Carbon dioxide concentration in breath 

8. Average breath volume 

9. Average nitrogen volume per breath 

10. Average oxygen concentration per breath 

11. Average nitrogen concentration per breath 

12. AVERAGE carbon dioxide concentration per breath 

13. Total nitrogen eliminated 

14. Total number of breaths 


The output for a one minute report is the subject's identification, 
experimental conditions and the one minute interval parameters for: 

1. Elapsed time in minutes 

2. Nitrogen volume eliminated during the minute 

3. Oxygen volume eliminated during the minute 

4. Carbon dioxide volume eliminated during the minute 

5. Nitrogen volume per kilogram of body weight during the interval 

6. Average nitrogen concentration during the interval 

7. Cummulative nitrogen volume eliminated 

8. Per-cent of estimated nitrogen content eliminated 

9. Metabolic rate during the interval 

10. Average breath volume 

11. Average nitrogen volume per breath 

12. Average oxygen concentration per breath 

13. Average nitrogen concentration per breath 

14. Average carbon dioxide concentration per breath 

15. Total nitrogen eliminated 
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16. Total number of breaths 


The output for a five minute report is the subject's identification, 
experimental conditions and the one minute interval parameters for: 

1. Elapsed time in minutes 

2. Nitrogen volume eliminated during the five minute Interval 

3. Oxygc.i volume eliminated during the five minute interval 

4. Carbon dioxide volume eliminated during the five minute Interval 

5. Nitrogen volume per kilogram of body weight during the Interval 

6. Average nitrogen concentration during the Interval 

7. Cummulative nitrogen volune eliminated 

8. Per-cent of estimated nitrogen content eliminated 

9. Metabolic rate during the Interval 

10. Average breath volume 

11. Average nitrogen volume per breath 

12. Average oxygen concentration per breath 

13. Average nitrogen concentration per breath 

14. Average carbon dioxide concentration per breath 

15. Total nitrogen eliminated 

16. Total number of breaths 


31 


3,5 UPDATE PROGRAM 


The output of the UPDATE program is a formatted data file identical to the 
data files generated by the modified nitrogen washout program and suitable 
for use with the N2DATA report writing program or for transfer to the VAX. 
The updated data file Is stored on a floppy disk. The data file contains 
zeros and blanks for all of the new input variables on subject 
identification and experimental conditions. 


Record 1 



ITEM 

FORMAT 

STARTING COLUMN 

NAME 

30A1 

1 

DATE 

8A1 

31 

ICC ODE 

11A1 

39 

AGE 

12 

50 

EXTERNAL 

TEMPERATURE 

F7.2 

52 

EXTERNAL 
GRAVI ty 

Ii 

59 

IMMERSION? 

A1 

60 

BODY POSITION CODE 

12 

61 

AMBIENT PRESSURE 

F7.2 

63 

DRUGS CODE 

12 

70 

EXERCISE CODE 

12 

72 

BREATHING MIXTURE CODE 

12 

74 

BODY HYDRATION CODE 

12 

76 

AMBIENT GAS CODE 

12 

78 

STARTING TIME 

5A1 

80 

SPECIAL CONDITION CODE 

12 

85 

COMMENTS? 

A1 

87 
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RICORD 2 

■ v . ..r .../ 



I TEM 

FORMAT 

STARTING COLUMN 

COMMENT 

BOAT 

1 

lUlUMl) 3 



ITEM 

FORMAT 

STARTING COLUMN 

COMMENT 

BOAl 

1 

RECORD 4 



ITEM 

FORMAT 

STARTING COLUMN 

COMMENT 

B0A1 

1 

RECORD b 



ITEM 

FORMAT 

STARTING COLUMN 

COMMENT 

80A1 

1 

Hie data file contains 
variables collected in 

a record for 
the run. 

each breath of the following 

RECORD b 



I TEM 

FORMAT 

STARTING COLUMN 

UREA HI NUMBER 

14 

1 

LEAPS U) TIME 

F10.1 

5 

BREATH VOLUME 

FI 0.5 

lb 

NITROGEN VOLUME 
IN BREATH 

K10.5 

25 

CONCENTRATION OK 
02 IN BREATH 

F10.5 

35 

CONCENTRATION OK 
N2 IN BREATH 

F10.5 

45 

CONCENTRATION UK 
C02 IN UREA HI 

K10.5 

55 


The data tile end is marked by dummy zero values for the variables in 
record b. 
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p oa 





OPERATOR CAN CHANGE SELECTED 
DATA VALUES 



QMP'mh i;\, v , ;, 5 

OF F\'UV Q'Wi.hY 

CAL GAS PERCENTAGES 



INTERRUPT RATE i.e, 'SAMPLE' 
EXECUTION RATE 


SPIROMETER NOISE, MINIMUM 
BREATH DIFFERENCE 


TYPE 1 EHO OF PHASE 1 


-»nn 




















A 


OUl'VMl v ; U i.. 

OF POOt; QW 


>1 


i ji 

t?V 




Read Breath 
Mix Code 



Prompt for\ 
ody Hydratii 
V Code 





i 


OK...”* • ■ 
of m- j t 



SELECT MASS SPEC PORT & 
OPEN A VALVE FOR VENTING 

SELECT MASS SPEC N2 RANGE 
START CAL. SEQUENCE 

OPEN A VALVE 


FLUSH FOR TO SEC'S 










ZERO INTEGRATOR 

READ A 0 CHANNEL 
ADD TO INTEGRATOR 


AVERAGE VALUE TO GET 
ANSWER 

INCREMENT INDEX 
REPEAT IF NECESSARY 


SELECT MASS SPEC N2 RANGE 
START CAL SEQUENCE 

OPEN A VALVE 

\ 

FLUSH FOR 10 SEC'S * 
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6ASSUMm»0.0 I 

CALL I POKE (lADCSR, 
I ADC6C ( 1 ) ) 

INT = IPEEK IADBUF 
GASSUM (1) « 

GAS SUM (1) + 

FLOAT (INT) 


OF POOR QUAUVy 


ZERO INTEGRATOR 


READ A-D CHANNEL 
ADD TO INTEGRATOR 


O) 

( 2 ) 

(3) 

(4) 



AVERAGE VALUE TQ GET 
ANSWER 

INCREMENT INDEX 
REPEAT IF NECESSARY 


« [CALPCTO.l) - 

CALPCT 

(1 , 3 ) ]/ CCALCNT (1 ,1 ) 

- CALCNT (1 ,3); 

- n , 

(2,2) 

li 

(2,3) 

II 

(2,2) 

II 

(2,3) 

= H 

(3,3) 

II 

(3,2) 

II 

(3,3) 

II 

(3,2) 

_ it 

0,3) 

II 

(1,2) 

II 

0,4) 

II 

0,2) 

GSNTCP (1 ) 

= CALPCT (1 ,3) 

- [GASSLP (2 ) 

* CALCNT (1 ,3)1 


(2) 

U 

(2,3) 

II 

(2) 

M 

(2,3) 


(3) 

n 

(3,2) 

II 

(3) 

II 

(3,2) 


(4) 

it 

0,2) 

II 

(4) 

II 

0,2) 



CALCULATE SLOPES 
AND INTERCEPTS 


TYPE CALCNT (1,1), CALCNT (1,3) 
GASSLP(I) GSNTCP(l) 
TYPE CALCNT (1 ,3),CALCNT(1 ,2) 
•GASSLP(4) GSNTCP (4 ) 
TYPE CALCNT (2 ,2 ) ,CALCNT(2 , 3 ) 
GASSLP(2 ) GSNTCP(2 ) 
TYPE CALCNT (3, 3), CALCNT (3, 2) 
GASSLP(3) GSNTCP(3) 


I 


CALL I POKE 



(IDRVOTjO) 


92 

PRINT 'END OF PHASE' 


\ / 


PRINT RESULTS 


SHUT VALUES, CHANGE MASS 
SPEC PORT 


GET NEW PHASE ENTRY 






ons&mi p. 

°F PQC,i nj. 


ft it » 



CALL I POKE ( IADCSR, IADCGC (4) 
INT = IPECK (IADBUF) 

FLOSUM = FLOSUM + FLOAT (INT) 



FLM = 1 .0/ (Ft JCAL-FLOZER) 
FLQ = -FLOZEk 


TYPE FLOCAL, FLOZER, 
FLM, FLB 


READ SPIROMETER 0 

ZERO ACCUMULATOR 
READ A-D 

ADD TO ACCUMULATOR 

AVERAGE RESULTS 

VALUE FOR HIGH CAL. VOLUME 

GET SLOPE AND INTERCEPT 
PRINT RESULTS 




PRINT 'END OF PHASE' 


GET NEW PHASE ENTRY 














IDRIFT * 2 
N2T0T - 0. 
1 M IN * 1 


CALL INTSET ("104, 4, ID, SAMPLE) 
ICLCNT = 1 0000/ I CLRAT 
CALL I POKE ("172542 , ICKNT) 


0 ICON = 0 
I FLO = 0 
IBTH = 0 
N2VLM * 0.0 
LWAT = .f. 
LATCH « ,t. 


BRTST = FLOZER + BRGAT 
VOLUME =0.0 
V0L1 = BRTST 
V0L2 = 0.0 
1 CHECK = 0 



ATTACH SUBROUTINE 
SAMPLE TO INTERRUPT 


CALCULATE BUFFER COUNT 
FOR PROGRAM CLOCK 


INITIALIZE SOME COUNTER'S 
AND LATCHES 

* 


CALCULATE INTEPRATING 
FACTOR 

CALCULATE M.S. TRANSPORT 
LAG (=1.1 SEC'S) COUNTERS 


INITIALIZE TIME TAG'S 
AND EXPERIMENT CLOCK 

START CLOCK GENERATING 
INTERRUPTS * 





CHECK MASS SPEC. N2 RANGE 


LOOK FOR KEYBG’iRD INPUT 

mc car H 
5 set 


CHECK NEED TO PURGE 
SPIROMETER 


PURGE SPIROMETER (OPEN DUMP) 


CLOSE DUMP VALVE 


IS DATA READY 





NTSUM = NTSUM + PCT N2(J) 
OTSUM = OTSUM + PCT 02 (J) 
COSUM * COSUM + PCT CQ(J) 


N2TID = NTSUM/1 CON 
02TID = OTSUM/1 CON 
COTIO ■ COSUM/1 CON 


BRVOL ■ VOLUME 
BRN2V * BRVOL + N2TID 
N2VLM = N2VLM + BRN2V 
N2T0T = N2T0T + BRN2V 


WRITE (2) 1 BTH, ELP5T, BRVOL, 3RN2V, 
02TID, N2TI0, OOTID 
TYPE 1 BTH, ELPST, BRVOL, BRN2V, N2TID 


ICON =0 
1 FLO 3 0 
1 CHECK = 0 
V0L2 = 0.0 
BRVOL = 0.0 
1 DRIFT = 2. 


BRN2V = 0.0 
BRCOV = 0.0 
NTSUM =0.0 
DTSUM =0.0 
COSUM =0.0 
LWAT = .FALSE. 


CALCULATE AVERAGE GAS 
CONCENTRATIONS IN EXPIRED 
BREATH 


CALCULATE AVERAGE 
CONCENTRATIONS OF BREATH 


GET BREATH VOLUME CALCULATE 
N2 VOLUME ADD MINUTE M2 
VOLUME AND SUM TOTAL N2 
VOLUME 



WRITE DATA TO DISCS TYPE 
OUT SELECTED DATA TO TERMINAL 


RESET COUNTERS AND LATCHES 
FOR NEXT BREATH 





OF POO ft Q^'VUI ir 


TICK a SECNDS(TOCK) 


CHECK FOR 1 MINUTE 
OPERATION 


I 


TOCK « TOCK + 60 
TYPE 1MIN, N2VLM, N2T0T 
1 MIN a 1 MIN + 1 
N2VLM a c.O 


N2TID .07 


/ TYPE 
"N2 = 

o - m/ 



TYPE 4 MINUTES, MINUTE N2 
TOTAL N2 ON TERMINAL, INCRE- 
MENT MINUTE COUNTER 


TYPE 1 MINUTE EXHALED N2 
ON SCREEN 


IF CONCENTRATION OF N2 10% 
TYPE OPER. MESSAGE 


CALL I POKE ("1 72540, "0) 
CALL I POKE ( IDNOT , "0 ) 
IDMY a 0 
RDMY =0.0 


STOP REQUEST 

STOP CLOCK SHUT VALVES ETC. 


PREPARE 'END OF DATA TAG 1 


'WRITE (2) IDMY ,S*RDMY 
CLOSE (UNIT+2 ,DISP= / 
'SAVE' / 


WRITE 'END OF DATA' TAG TO 
DISK, CLOSE FILE ACCEPT NEW 
PHASE 

TYPE 'S-OF-PHASE' 


RETURN CONTROL TO SYSTEM MON 



i 


OR.- 

OF POOR QUALITY 


SAMPLE 


INTERRUPT SERVICE ROUTINE 


CALL I POKE 1ADCSR 1ADCGC 1 
1 BAR=1 BAR+1 PEEK(1 ADBUF) 
1BARRY=1 BAR/5.0 
IF(1 DRIFT.GT. 1 BARRY ) then 
1 DRIFT®! BARRY 


SAMPLE N2 DRIFT OF 
INSPIRED 02 


INT = IPEEK ("167774' 


="177777 


CHECK FOR MAIN 
PROGRAM READY 

READ MASS SPEC 
N2 RANGE 


IFLLT = "040 
NRN6 = 4 


'1 76777 


IFLLT = "100 
NRN6 = 1 


TYPE 

'READ 

ERROR' 


GET VOLUME SAMPLE 
AND TEST FOR END OF 
BREATH 


CALL I POKE 
(1DRV0T.D) 
LBTH 


CALL I POKE (1ADCSR, 1 ADGGC(4) ) 
KFLQW = KFLDW + 1 PEEK(1 ADBUF) 
V0L1 = FLDAT (KFL0W)/15.0 
TEST = V0L1 - VOL 2 
(V0L1.G.E.BRTST). AND. TEST. GT.l .0) 


CALL IPOKE (1 DRVOT, IFLLT) 
LBTH = .TRUE. 

I FLO = I FLO + 1 

VOLUME ■ (V0L1+FLB) * FLM 




TURN ON INDICATOR LIGHT 


INCREMENT VOLUME INDEX 
CALCULATE VOLUME 
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no 


ORIGINAL PACii l«j 

OF POOR C 'tlTY 





INCREMENT TRANSPORT DELAY 
COUNTER 


IS DELAY COUNTER TRANSPORT 
LAG TIME 


ICON = ICON + 1 

CALL I POKE (IADCSR, IDACGC (1)) 

INT. = IPEEK (IADBUF) 

PCTN2 (ICON) = (GASSLP (NRNG) + 
(INT-IDRIFT) + GSN + CP (NRNG) )/l 00 

CALL I POKE (IADCSR, IADCGC (2)) 

INT = IPEEK (IADBUF) 

PCT02 (ICON) = (GASSLP (2) + INT + 
GSNTCP (2))/100 

CALL IPOKE (IODESR, IADCGC (3)) 

INT « IPEEK (IADBUF) 

PCTCO (ICON) = (GASSLP (3) * INT + 
GSNTCP ( 3 ) )/l 00 



LBTH = .FALSE. 
LOWAT = .TRUE. 
IDLY = 0 


INCREMENT GAS CONCENTRATION 
INDEX 


READ MASS SPE AND CALCULATE GAS 
CONCENTRATIONS FOR N21 02 . AND 
C02 . 


ARE INDEX'S EQUAL 




ALL DATA IS GATHERED: SET 
FLAG'S TO GIVE MAIN PROGRAM 
ANALYSIS CONTROL. 





4.4 NITROGEN DATA PROGRAM 


START 


PRINT 

START 

MESSAGE 


PROMPT 
FOR OLD 
FILENAME 


READ OLD 
FILENAME 


READ 

HEADER 

RECORDS 


V i uiU u i, 4 \ . J 

OF POOt-J 


WRITE 
HEADER 
INFO _ 


PRINT 

REPORT 

MENU 


FULL 

REPORT 


MINUTE 

.REPORT 


/SN 

MINUTE 

.REPORT 


SHORT 

REPORT 

v ? 


(0 
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0F QUAgjiY 


5.0 PROGRAM LISTINGS 

5.1 PERSONAL DATA INPUT PROGRAM 

Q ********************************************************************* 
Q ********************************************************************* 
0 * * 

0 * * 

C * TECHNOLOGY INCORPORATED * 

C * LIFE SCIENCES DIVISION * 

C * DEPARTMENT OF BIOMATHEMATICS SERVICES * 


0 ********************************************************************* 
C * * 

Q * ^ 

C * PROGRAM NAME: PDINPT * 

C * DESIGNER/ANALYST: CRAIG E. LITTON * 

C * PROGRAMMER: PENNY BUEKER * 

C * DATE: 31 DECEMBER 1981 * 


COMPUTER SYSTEM: LSI-11 

OPERATING SYSTEM: RT-llv4 


COMPILING SEQUENCE: 


LSI: FORTRAN PDINPT 


LINKING SEQUENCE: 

LSI: LINK PDINPT 



EXECUTION SEQUENCE; RUN PDINPT 


0 ********************************************************************* 
0 ********************************************************************* 
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ooooo ooo oooooooooooo ooo ooooooooooooooooooooooooooooo 


0001 


ORICM- 

OF POQn Q&JALmlf 


c 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
PROGRAM PDINPT 

TABLE OP VARIABLES 


VARIABLE 

AGE 

AVGBIC 

AVGMCL 

AVGMTH 

AVGSUB 

AVGSUP 

AVGTRI 

AVGUMB 

AVSUM1 

AVSUM2 

AVUWW7 

BDP1 

BDP2 

BDWI 

BFKNOW 

BFPCT 

BSID1 

BSID2 

BVOLWI 

DEN 

HEIGH T 

J 

K 

KSP1 

KSP2 

KWI 

K1 

K2 

M 

MEAS1 

MEAS2 

N 

rc 

NF 

NUUEWT 

PCBFP1 

PCBFP2 

PCBFWI 

PCF 

PCFFM 

PC1BW 

RESVOL 

SEX 

51 

52 


USE 

SUBJECT'S AGE 

AVERAGE OF BICEPS MEASUREMENTS 
AVERAGE OF MIDCLAVICULAR MEASUREMENTS 
AVERAGE OF MID THIGH MEASUREMENTS 
AVERAGE OF SUB9CAPULAR MEASUREMENTS 
AVERAGE OF SUPRAILIAC MEASUREMENTS 
AVERAGE OF TRICEPS MEASUREMENTS 
AVERAGE OF UMBILICUS MEASUREMENTS 
SUM OF AVERAGES OF BICEPS, 

TRICEPS, SUBSCAPULAR AND SUPRAILIAC 
SUM OF AVERAGES OF 

MIXLAVICULAR, UMBILICUS AND MIDTHIGH 

AVERAGE OF UNDERWATER WEIGHT TRIALS 

BODY DENSITY IN SKINFOLD PROCESS I 

BODY DENSITY IN SKINFOLD PROCESS II 

BODY DENSITY IN WATER IMMERSION PROCESS 

X BODY FAT IF KNOWN 

TEMPORARY FOR % BODY FAT 

BODY SIDE USED IN SKINFOLD PROCESS I 

BODY SIDE USED IN SKINFOLD PROCESS II 

BODY VOLUME IN WATER IMMERSION PROCESS 

BODY DENSITY IN NUTRITION JOURNAL FORMULA 

SUBJECT'S HEIGHT 

INDEX VARIABLE 

INDEX VARIABLE 

DO SKINFOLD PROCESS I? 

DO SKINFOLD PROCESS II? 

DO WATER IMMERSION PROCESS? 

INTERMEDIATE VALUE 
INTERMEDIATE VALUE 
INDEX VARIABLE 

NUMBER, OF MEASUREMENTS MADE IN PROCESS I 

NUMBER OF MEASUREMENTS MADE IN PROCESS II 

INDEX VARIABLE 

NUMBER OF CHARAC TERS 

NUMBER OF CHARAC TERS 

SUBJECT'S WEIGHT 

* BODY FAT IN SKINFOLD PROC ESS I 

% BODY FAT IN SKINFOLD PROCESS II 

% BODY FAT IN WATER IMMERSION PROCESS 

X BODY FAT IN NUTRTION JOURNAL FORMULA 

X FAT FREE MASS IN NUTRITION JOURNAL FORMULA 

% TOTAL BODY WATER , NUTRITION JOURNAL FORMULA 

RESIDUAL VOLUME OF AIR IN LUNGS 

SUBJECT'S SEX 

LOG OF AVSUM1 

SQUARE OF AVSUM2 
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ORfGfftJ/ll. p/’— « p 

OF POOI? o’w-J.Y 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

0002 


c 

0003 

c 

0004 


TEMP TEMPORARY FOR SEX 

TEMPI TEMPORARY FOR BSID1 

TEMP2 TEMPORARY FOR BSID2 

TRIAL NUMBER OF UNDER WATER WEIGHT TRIALS 

UWCHWT UNDER WATER CHAIR WEIGHT 


VOL BODY VOLUME IN NUTRITION JOURNAL FORMULA 

WATERD WATER DENSITY 

WATERT WATER TEMPERATURE 

WATRWT WATER WEIGHT 


ARRAY 
B IC EP ( 3 ) 
BIRTHD(6) 
FATWT(4) 
FFMASS(4) 
FILENM(ll) 
LB WM( 4 ) 
MEASDT(6) 
MIDC LA( 3 ) 

M TH I GH ( 3 ) 
NI TDEN(4) 
NITFAT(4) 
NI TL6W( 4 ) 
PR1D T(6) 
PR2DT(6) 
SUB SC A( 3 ) 
SUPRAI (3) 
TBNIT(4) 
TRIC EP ( 3 ) 
UMBILI (3 ) 


USE 

BICEPS SKINFOLD MEASUREMENT 
DATE OF BIRTH 
FAT WEIQTT 
FAT FREE MASS 

SUBJECT'S IDENTIFICATION CODE 
LEAN BODY WATER MASS 
DATE OF WATER IMMERSION PROCESS 
MIDCLAVICULAR SKINFOLD MEASUREMENT 
MID THIGH SKINFOLD MEASUREMENT 
NITROGEN/KG OF BODY WEIGHT 
NITROGEN IN TOTAL FAT TISSUE 
NITROGEN IN LEAN BODY WATER 
DATE OF SKINFOLD PROCESS I 
DATE OF SKINFOLD PROCESS II 
SUBSCAPULAR SKINFOLD MEASUREMENT 
SUPRAILIAC SKINFOLD MEASUREMENT 
TOTAL BODY NITROGEN 
TRICEPS SKINFOLD MEASUREMENT 
UMBILICUS SKINFOLD MEASUREMENT 


UWWT(IO) UNDER WATER WEIGHT 

VOLFA T{4 ) VOLUME OF FAT 

VOLLB W( 4 ) VOLUME OF LEAN BODY WATER 


NITROGEN WASHOUT PERSONAL DATA INPU T PROGRAM 

LOGICAL*!. IDCODE(ll), BIRTHD(8) , SEX, DA TE(8) , 

1 KWI , MEASD T(8) , KSP1, PR1DT(8), 

2 BSID2, KSP2 , PR20T(8), FILENM(31), 

3 BSID1 

INTEGER*2 TRIAL, MEAS1 , MEAS2 , YORN, AGE 

REAL*4 HEIGHT, BFKNOW, NUDEWT, 

1 WATERT, WATERD, RESVOL, MONTH, 

2 UWCHWT, UWWT(IO), B IC EP ( 3 ) , 

3 TRIC EP(3) , SUBSCA( 3 ) , SUPRAI (3 ) , 

4 MIDC LA ( 3 ) , UMBILI (3 ) , MTH I GH ( 3 ) , 

5 FA TWT{5 ) , FFMASS(5 ) , LB WM( 5 ) , 

6 VOLFA T(5), VOLLBW( 5 ) , NI TFA T( 5 ) , 

7 NI TLB W( 5 ) , TBNI T(5) , NI TDEN( 5 ) ,BFPC T 
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r 




OF - • - 

C 

0005 REAL*8 TEMP, TEMPI, TEMP2 
C 

C 

C PRINT START MESSAGE 

C 

0006 WRI TE( 7 ,901 ) 

C 

C GET DATA FILENAME 

C 

0007 101 WRI TE( 7 ,902) 

0008 READ (5, 800, END=101) NF, (FILENM(J) ,J*1 ,NF) 

0009 IF (NF.LE.O) GO TO 101 

0011 FILENM ( NF+1 )=0 

0012 OPENOJMIT-l, NAM£«FILENM, TYPE 3 ' NEW' , ACCESS 3 'SEQUENTIAL' , 

1 FORM 58 ' FORMATTED' , ERR=80, D ISP 53 ' KEEP 1 , 

2 CARRIAGECONTROL*' FORTRAN') 

0013 REWIND 1 

0014 GO TO 90 

0015 80 WRI TE( 7 ,936 ) (FILENM(J), J=1,NF) 

0016 GO TO 101 
C 

C GET DESCRIPTIVE INFORMATION 

C 

0017 90 AGE=0 

0018 SEX 58 ' ' 

0019 HEIGHTS. 

0020 NUDEWT=0. 

0021 BFKN0W=0. 

0022 DO 91 0=1,11 

0023 91 IDCODE(J) 58 ' ' 

0024 DO 93 J=1 ,8 

0025 93 8IRTHD(J )=' ' 

0026 DO 94 J=1 ,8 

0027 94 DATE(J)=* ' 

0028 102 WRI TE(7 ,903) 

0029 READ (5,801, END=102) NO ,( IDCODE(J ) ,J=1 ,NC ) 

0030 IF( NC.NE.il) GO TO 102 

0032 110 WRI Tt(7 ,924) 

0033 READ (5, 802, EMM 10) NC ,(DA TE(J ) ,J=1 ,l€ ) 

0034 IF(NC .NE.8) GO TO 110 

0036 103 WRI TE(7 ,904) 

0037 READ (5 ,802 , END=103) NC ,(BIR1HD(J ) ,J=1 ,KC ) 

0038 IF (NC . NE.8) GO TO 103 

0040 104 WRI TE(7 ,935) 

0041 READ (5,*, END =104) AGE 

0042 105 WRI TE(7 ,905) 

0043 READ (5, 803, END=105) SEX 

0044 IF (SEX.NE.'M' .AND.SEX.NE.'F' ) GO TO 105 

0046 IF( SEX. EQ. ' M' ) TEMP=' MALE ' 

0048 IF(SEX. EQ. ' F* ) TEMP* 8 ' FEMALE' 

0050 106 WRI TE{7 ,906) 

0051 READ (5,*, END=106) HEIGHT 

0052 202 WRI TE(7 ,910) 

0053 READ (5,*, END=202) NUDEWT 
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j 



0054 

0055 

0056 

0057 

0058 

0059 

0060 
0061 
0062 

0063 

0064 

0065 

0066 
0067 


0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 

0080 
0081 

0083 

0084 

0085 

0086 

0087 

0088 
0089 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 

0100 


0101 

0102 

0103 

0104 


107 WRITE(7,907) 

IF (Y0RNC0)) 200, 107, 108 

108 WRI TE( 7 ,908) 

READ (5,*, END-108) BFKNOW 
200 CONTINUE 
WATER T=0. 

WATERDO. 

RESVOLO. 

UWCHWTO. 

TRIALO 

DO 230 N=1 ,10 
230 UWWT(N)=0. 

DO 210 J=1 ,8 
210 MEAS0 T(J )= ' ' 


°F PliWI QMuJy 


WATER IMMERSION 

201 WRI TE(7 ,909) 

KWI=Y0RN(0) 

IF (KWI) 300, 201, 203 

203 WRI TE(7 ,911) 

READ (5,*, EMD-203) WATERT 

204 WRI TE(7 ,912) 

READ (5,*, END-204) WATERD 

205 WRI TE(7 ,913) 

READ (5,*, END-205) RESV0L 

206 WRI TE(7 ,914) 

READ (5,*, END-206) UWCHWT 

207 WRI TE(7 ,915) 

READ (5,*, END-207) TRIAL 

IF ( TRIAL. LT.l. OR. TRIAL. GT. 10) GO TO 207 

DO 220 N-l, TRIAL 

208 WRI TE ( 7 ,916)N 

READ (5,*, END-208) UWWT(N) 

220 CONTINUE 

221 WRI TE ( 7 917) 

READ (5, 802, END-221) NC ,(MEASDT(J) ,J=1,NC) 
IF(NC.NE.8)G0 TO 221 

300 CONTINUE 
MEAS1-0 
8SIU1-' 1 

DO 330 N-l, 3 
BIC EP(N)=0 . 

TRICEP (N)=0. 

SUBSCA( N)=0 . 

330 SUPRAI(N)=0. 

DO 340 J-1,8 
340 PRIDT(J)-' ' 

SKINFOLD PRXESS I 

301 WRI TE { 7 ,918) 

KSPl-YORN(O) 

IF (KSP1) 400, 301, 302 

302 WRI TE( 7 ,919 ) 
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0105 

0106 
0108 
0110 
0112 

0113 

0114 
0116 

0117 

0118 

0119 

0120 
0121 
0122 

0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

0136 

0137 

0138 

0139 

0140 

0141 

0142 

0143 

0144 


0145 
( 146 

0147 

0148 

0149 

0150 
0152 
0154 

0156 

0157 

0158 
0160 
0161 
0162 

0163 

0164 

0165 


ax. v" 

OF FCOni 4 ,- 


READ (5,803, END “3 02) 8SID1 

IF( BSIU1. NE. 1 R' .AND. BSID1.NE, M. * ) GO TO 302 

IF(BSIDl.EQ.'R') TEMPI®' RIGHT' 

IF( BSIU1 • EQ* 1 L 1 ) TEMPI" ‘LEFT ' 

303 WRI TE(7 ,920) 

READ (5,*, ENU=303) MEAS1 

IF ( MEAS1.LT. 1. OR. MEAS1.GT. 3) GO TO 303 

DO 305 M-1.MEAS1 

304 WRI TE( 7 ,92 1 ) N 

READ (5/, END=304) BICEP(N) 

305 CONTINUE 

DO 307 N=1 ,MEAS1 

306 WRI TE(7 ,923)N 

READ (5,*, END=306) TRICEP(N) 

307 CONTINUE 

DO 309 N=1,MEAS1 

308 WRI TE(7 ,925)N 

READ ( 5 ,* , END=308) SUBSCA(N) 

309 CONTINUE 

DO 320 N=1 ,MEAS1 

310 WRITF.(7 ,927)N 

READ (5 ,* , END=310) SUPRAI(N) 

320 CONTINUE 

321 WRI TE(7 ,917 ) 

READ (5, 802, END=321) NC ,{PR1D T(J ) ,J=1 ,N3 ) 
IF( NC . NE.8) GO TO 321 

400 CONTINUE 
MEAS2=0 
BS'ID2 =I ' 

DO 430 N=1 ,3 
MIDCLA(N)=0. 

UMBILI(N)=0. 

430 MTHIGH{N)=0. 

DO 440 J=1 ,8 
440 PR2DT(J)=' ' 

SKINFOLD PROCESS II 

401 WRI TE(7 ,928) 

KSP2=Y0RN(0 ) 

IF (KSP2) 500, 401, 402 

402 WRI TE ( 7 ,919 ) 

READ (5, 803, END=402) BSID2 

IF( BSIU2. NE. ' R' .AND.8SID2. NE. ' L' ) GO TO 402 

IF(BSID2.EQ.'R') TEMP2=' RIGHT' 

IF( BSIU2. EQ. ' L ‘ ) TEMP2=' LEFT ' 

403 WRI TE(7 ,920) 

READ (5,*, END=403)MEAS2 

IF ( MEAS2 . L T. 1 . OR. MEAS2 . GT. 3 ) GO TO 403 

DO 405 N=1 ,MEAS2 

404 WRI TE(7 ,930)N 

READ (5,*, END =4 04) MIDCLA(N) 

405 CONTINUE 

DO 407 N=1,MEAS2 

406 WRI TE(7 ,932)N 




75 


0166 

0167 

0168 

0169 

0170 

0171 

0172 

0173 

0174 
0176 


0177 

0178 

0179 

0180 
0181 
0182 

0183 

0184 

0185 

0186 

0187 

0188 
0189 


0190 

0191 

0192 

0193 

0194 

0195 

0196 

0197 

0198 

0199 

0200 
0201 
0202 

0203 

0204 

0205 

0206 

0207 

0208 

0209 

0210 
0211 
0212 


READ (5,*, END =406) UMBILI(N) 

407 CONTINUE 
DO 409 N*1,MEAS2 

408 WRI TE(7,934)N 
READ (5,*, EM) =408) MTHIGH(N) 

409 CONTINUE 

410 WRI TE(7,917) 

READ (5, 802, END=410) NC ,( PR2D T( J ) ,J=1 ,NS ) 
IF(NC.NE.S) 60 TO 410 

500 CONTINUE 

C COMPUTATION FORMULAE 

C 

C 

C BODY COMPOSITION BY WATER IMMERSION 

AVUWWTO. 

WA TRW T=0 . 

BV0LWI=0. 

BDWI=0. 

PCBFWI=0. 

IF (KWI) 600,600,501 

501 DO 510 N=l, TRIAL 
510 AVUWWT=AVUWWT + UWWT(N) 

AVUWWT=AVUWWT/ TRIAL 
WATRWT=AVUWWT - UWCHWT 
BV0LWI = ( (NUDEWT - WA TRWT)/WA TERD ) -RESVOL 
BDWI=NUDEWT/BVOLWI 
PCBFWI=( (4.95/BDWI) - 4.50)*10Q 

BODY COMPOSITION BY SKINFOLD PROCESS 1 

%J 

600 AVGB IC =0. 

AVGTRIO . 

AVGSUB=0 . 

AVGSUP=0. 

AVSUM1=0 . 

S1=0. 

PCBFPIO. 

BDP1=0 . 

IF (KSP1 ) 700,700,601 

601 DO 603 N=1 ,MEAS1 
603 AVGBIC=AVGBIC + BICEP(N) 

AVGB IC =AVGB IC / MEAS1 
DO 605 N=1 ,MEAS1 
605 AVGTRI=AVGTRI + TRICEP(N) 
AVGTRI=AVGTRI/MEAS1 
DO 607 N=1 ,MEAS1 
607 AVGSUB=AVGSUB + SUB.5CA(N) 
AVGSUB-AVGSUB/MEASl, 

DO 609 N=1 , MEAS1 
609 AVGSUP=AVGSUP + SUPRAI(N) 
AVGSUP=AVGSUP/MEAS1 
AVSUM1=AVG8 IC+AVGTRI+AVGSUB+AVGSUP 
S1=AL0G10(AVSUM1 ) 


76 


0213 

0215 

0217 


0218 

0219 

0220 
0221 
0222 

0223 

0224 

0225 

0226 

0227 

0228 

0229 

0230 

0231 

0232 

0233 

0234 

0235 

0236 

0237 

0239 

0241 


0242 

0243 

0244 

0245 

0246 

0247 

0248 

0249 

0250 

0251 


J252 

0253 

0254 

0255 

0256 

0257 

0258 

0259 


L ■ ■' . 
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IF (SEX.EQ.'M') 13DP1=1 . 1610- . 0632*S1 
IF (SEX.EQ.'F') BDP1»1.1581-.0720*S1 
PCBFP1=( (4.95/BDP1 )-4 .50)*100 
C 

C BODY COMPOSITION BY SKINFOLD PROC ESS 2 
C 

700 AVGMCL=0. 

AVGUMB=0. 

AVGMTH=0. 

AVSUM2=Q. 

S2=0 . 

BDP2=0. 

PCBFP2=0. 

IF (KSP2) 1000,1000,701 

701 DO 703 N=1 ,MEAS2 

703 AVGMCL=AVGr4CL+MIDC LA { N) 

AVGMCL=AVGMCL/MEAS2 
DO 705 N=1 ,MEAS2 
705 AVGUMB=AVGUMB+UMBILI(N) 

A V GU MB =A V GU MB/ MEA S2 
DO 707 N=1 ,MEAS2 
707 AVGMTH"AVGMTH+MTHIGH(N) 

AVGMTH=AVGMTH/MEAS2 
A V SU M2 =A V GMC L+A V GU MB+A V GM TH 
S2=AVSUM2*AVSU M2 

IF (SEX.EQ.'M 1 ) BDP2=1 . 10938- ( (8.267E-4 )*AVSUM2)+( (1.6E-6 )*S2)- 
1 ( (2. 574E-4 )*AGE) 

IF (SEX.EQ.'F 1 ) 8DP2=1 . 105339- ( ( 1 . 1964 E-3 )*AVSUM2)+( (3.8E-6 )*S2)- 
1 ( (1.069E-4 )*AGE) 

PCBFP2=( (4.95/BDP2 )-4 . 50) *100 
C 

C FORMULA ESTIMATION OF BODY CHARACTERISTICS FROM 
C 1 AMERICAN JOURNAL OF CLINICAL NUTRITION 
C 

1000 V0L=0 . 

0 E N=0 . 

PCF=0. 

PCFFM=0 . 

PC IB W=0 . 

V0L={1 .01 5*NUD EWT) -4 .93 7 

DEN=NUDEWT/VOL 

PCF=52.67-(2454.38/NUDEWT) 

PCFFM=1U0-PCF 

PC TB W=34. 93+{1811. 33/NUD EWT) 

C 

C NITROGEN CONTENT CALCULATIONS 
C 

1101 DO 1900 N=1 ,5 
FATWT(N)=0. 

FFMASS(N)=0 . 

LBWM(N)=0. 

VOLFA T( N)=0 . 

V0LLBW( N)=0 . 

NI 7FA T( N)=0 . 

NITLBW(N)=0. 
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0260 

0261 

0262 

0263 

0265 

0267 

0269 

0271 

0273 

0275 

0277 

0279 

0281 

0283 

0284 

0285 

0286 

0287 

0288 

0289 

0290 

0291 

0292 

0293 


0294 

0295 

0296 

0297 

0298 

0299 

0300 

0301 

0302 

0303 

0305 

0306 

0307 

0308 

0309 

0310 

0311 

0312 


0313 

0314 


on:cra, p/Tu- 

OK POOR QUALITY 

TONI T(N)=0 . 

NITOEN(N)=0. 

BFPC TO. 

IF ( N. EQ. l.AND. 8FKN0W. EQ.O. ) GO TO 1900 

IF( N. EQ.2.AND.PCBFWI. EQ.O.) GO TO 1900 

IF( N. EQ.3.AND.PCBFP1. EQ.O. ) GO TO 1900 

IF( N. EQ.4.AND.PCBFP2. EQ.O. ) GO TO 1900 

IF( N. EQ. 5.AND.PCF. EQ.O. ) GO TO 1900 

IF(N.EQ.l) BFPC TOFKNOW 

IF( N. EQ.2) BFPC T=PCBFWI 

IF( N. EQ.3) BFPC T=PC BFP1 

IF( N. EQ.4) BFPC T=PCBFP2 

IF( N. EQ. 5) BFPC T=PCF 

FATWT(N)=BFPC T*NUDEWT/100. 

FFMASS(N)=NUDEWT-FATWT(N) 

LB WM( N)=FFMASS(N)*.72 
V0LFAT(N)=FA7WT(N)/.90 
VOLLBW( N)=LBWM( N)/ .9933 
NI TFAT(N)=V0LFAT(N)*.067 
N I TLB W( N ) = VO LLB W( N)*.013 
TONIT(N)=NIFAT(N)+NITLBW(N) 

NITDEN(N)=TONI T(N)/NUDEWT 

1900 CONTINUE 
CALL LINE(O) 

C 

C REPORT 

C 

C 

C PERSONAL CHARACTERISTICS PROFILE 

C 

1901 WRI TE(7 ,937 ) 

READ (5,804) 

WRI TE(7 ,940) 

CALL LINE(5) 

WRI TE(7 ,941) I DC ODE, ( FILENM( J ) ,J=1 ,NF) 

CALL LINE(2) 

CALL SWAPDT(DATE, MONTH) 

WRI TE(7 ,942) DA TE(4 ) ,DA TE(5 ) ,DA TE(3 ) , MONTH, 

1 DA TE(6 ) ,DA TE(7 ) ,DA TE(8) , TEMP, AGE 
CALL LINE(2) 

IF(BFKNOW.NE.O) GO TO 1920 
WRI TE(7 ,943)HEIGH T 
CALL LINE(2 ) 

GO TO 1925 

1920 WRI TE ( 7 ,944) HEIGH T.BFKNOW 
CALL LINE(2 ) 

CALL SWAPD T( BIR THU, MONTH) 

1925 WRI TE ( 7 ,938) NUD EW T, BIR THD ( 4 ) ,BIRTHD(5) ,8IRTHD(3) , 
1 MONTH, BIRTHU(6) ,BIRTHD(7 ) ,BIRTOU(8) 

CALL LINE(3) 

C 

C WATER IMMERSION DATA 
C 

1930 IF ( KWI ) 1931, 1931, 1932 

1931 WRI TE ( 7 ,971 ) 
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0315 

0316 

0317 

0318 


0319 

0320 

0321 

0322 

0323 

0324 

0325 

0326 
0328 

0330 

0331 

0332 

0333 

0334 


0335 

0336 

0337 

0338 

0339 

0340 

0341 

0342 

0343 

0344 

0345 

0346 

0347 

0348 

0349 

0350 


0351 

0352 

0353 

0354 

0355 

0356 

0357 

0358 

0359 

0360 
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CALL LINE(5) 

GO TO 1945 

1932 CALL SWAPD T( MEASO T, MONTH) 

WRI TE(7 ,945) NUDEWT, WATERT.RESVOL, WATER!) , 

1 UWCHWT, MEASO T(4), MEASO T(5), MEASO T(3), MONTH, 

2 MEASO T{6), MEASO T{7), MEASO T(8) 

CALL LINE (12) 

WRI TE(7,946) AVUWWT 
CALL LINE(4) 

N=( TRIAL+1 )/2 
00 1940 0=1, N 
Kl=( (J-l )*2)+l 
K2=K1+1 

If(K2.LE. TRIAL) WRI TE(7 ,947) K1,UWWT(K1) ,K2,UWWT(K2) 
IF(K2.GT. TRIAL) WRI TE(7 ,947) Kl.UWWT(Kl) 

CALL LINEC2) 

1940 CONTINUE 

WRI TE(7 ,948) WATRWT.BVOLWI.BDWI.PCBFWI 
CALL L I NE( 4 ) 

1945 CONTINUE 
C 

C SKINFOLD PROCESS I DATA 
C 

IF (KSP1 ) 1946, 1946, 1947 

1946 CALL ESTIM(4) 

WRI TE ( 7 ,972 ) 

CALL LINE(4 ) 

GO TO 1955 

1947 CALL ESTIM( 14+(2*MEAS1 ) ) 

CALL SWAP0T(PR1DT, MONTH) 

WRI TE ( 7 ,950 ) TEMPI, PR1D T(4) , PR1D T(5) ,PR1D T(3) , MONTH, 
1 PR1D T(6 ) ,PR1D T( 7 ) ,PR1D T(8) 

CALL LINE(IO) 

DO 1950 J-1.MEAS1 

WRITE! 7,951) J, BICEP(J), TRICEP(J), SUB9CA(J), 

1 SUPRAI(J) 

1950 CALL LINE(2) 

WRI TE { 7 ,952 ) AVGBIC, AVGTRI , AVGSUB , AVGSUP 
CALL LINEC2) 

WRI TE(7,953) BDP1, PCBFP1 
CALL LINE(2 ) 

C 

C SKINFOLO PROCESS II DATA 
C 

1955 IF (KSP2) 1956, 1956, 1957 

1956 CALL ESTIMU) 

WRI T£(7 ,973) 

CALL LINE(4) 

GO TO 1965 

1957 CALL ESTIM(14+(MEAS2*2) ) 

CALL SWAPD T(PR2DT, MO NTH) 

WRI TE(7 ,954) TEMP2 , PR2D T{4) ,PR20 T(5) ,PR2D T(3) .MONTH, 
1 PR2D T(6 ) ,PR2D T(7 ) ,PR2D T(8) 

CALL LINE(IO) 

DO 1960 J=1 ,MEAS2 
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op Quaur 


0361 

0362 

0363 

0364 

0365 

0366 


0367 

0368 

0369 


0370 

0371 

0372 

0373 

0374 

0375 

0376 

0377 

0378 

0379 

0380 

0381 

0382 

0383 

0384 

0385 

0386 

0387 

0388 

0389 

0390 

0391 

0392 


0393 

0394 

0395 

0396 

0397 

0398 

0399 

0400 

0401 

0402 

0403 

0404 


WRI TE(7 ,955) J, MIDCLA(J), UMBILI(J), MTHIGH(U) 
1960 CALL LI NE( 2 ) 

WRI TE(7 ,956) AV6MCL, AVGUMB, AVGMTM 
CALL LINE(2) 

WRI TE(7 ,953) 8DP2, PC8FP2 
CALL L I N E ( 2 ) 

C 

C NUTRITION JOURNAL FORMULA DATA 

C 

1965 CALL ESTIM(IO) 

WRI TE( 7 ,960) VOL, DEN, PCF, PCFFM, PC TBW 
CALL LINE(IO) 

C 

C NITROGEN CONTENT DATA 


C 

1970 


CALL ESTIM(32) 

WRI TE ( 7 , 961 ) 

CALL L I NE ( 7 ) 

WRI TE(7 ,957) BFKNOW, PCBFWI, PCBFP1, PCBFP2 , PCF 
CALL L I NE ( 2 ) 

WRI TE(7 ,962) (FATWT(K), K=1 ,5) 

CALL LI NE( 2 ) 

WRI TE( 7 ,963 ) (FFMASS(K), K=1,B) 

CALL LINE(2) 

WRI TE(7 ,964) (LBWM(K) , K=l,5) 

CALL LINE(3 ) 

WRI TE(7 ,965) (VOLFAT(K) , K=l,5) 

CALL L I N£( 2 ) 

WRI TE(7 ,966 ) ( VOLLBW(K) , K-1,5) 

CALL L I NE( 3 ) 

WRI TE ( 7 ,967) (NITFAT(K), K=l,5) 

CALL L I NE( 2 ) 


WRI TE(7 ,968) (NITLBW(K) , K=1 ,5) 
CALL L I NE ( 3 ) 

WRI TE ( 7 ,969) (TBNIT(K), K=l,5) 
CALL L I NE ( 3 ) 

WRI TE ( 7 ,970) (NITDEN(K), K=l,5) 
CALL L I NE ( 3 ) 


C 

C STORE DATA ON DATA FILE 
C 


WRI TE ( 1 ,981 ) IXODE, DATE, AGE, SEX, BIRTHD, 

1 HEIGHT, BFKNOW, NUDEWT 

WRI TE ( 1 ,985) NUDEWT, RESVOL, BVOLWI, BDWI, PCBFWI 

WRI TE( 1 ,983) BDP1 , PCBFP1 

WRI TE( 1,983) BDP2 , PCBFP2 

WRI TE( 1 ,982 ) VOL, DEN, PCF, PCFFM, PC TBW 


DO 2000 M=1 ,5 

WRI TE ( 1 ,984) FATWT(M), FFMASS(M), L8WM(M), VOLFAT(M), 

1 VOLLBW(M), NIIFAT(M), NITl.BW(M), TBNIT(M) , NITDEN(M) 

2000 CONTINUE 

CL0SE(UNIT=1 ,D I SPO S E= 1 K E F.P * ) 

CALL EXIT 

901 FORMA T(///10X,' NITROGEN WASHOUT PERSONAL DATA INPUT PROGRAM'///) 

902 FORMA T( 1 OX , ' FILENAME ON WHICH TO STORE DATA ', 
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0405 

0406 

0407 

0408 

0409 

0410 

0411 

0412 

0413 

0414 

0415 

0416 

0417 

0418 

0419 

0420 

0421 

0422 

0423 

0424 

0425 

0426 

0427 

0428 

0429 

0430 

0431 

0432 

0433 

0434 

0435 

0436 

0437 

0438 

0439 

0440 

0441 


0442 


orusei^- r. 

OF POOR Q'' 


l-itf 'i 


1 /lOX.'DEVIC E:FILENM4E. TYPE * ' ,$) 

903 FORMA T(//1X,' IDENTIFICATION NUMBER OF 
1 'THE SUBJEC T(XXX-XX-XXXX) : '.$) 

924 FORMA Tv /IX,' DATE (MM-DD-YY) : f ,$) 

904 FORMA T( /IX, 'DATE OF BIRTH (MM-DD-YY): ' ,$) 

905 FORMA T( /IX, 'SEX (M/F): ',$) 

906 FORMA T(/1X, 'HEIGHT IN CM: ',$) 

907 FORMA T( //IX, 'IS % BODY FAT EXPLICITLY KNOWN (Y/N)? ' ,$) 

908 FORMA T( /IX, 'ENTER % BODY FAT: ' ,$) 

909 FORMA T( //IX, 'IS BODY COMPOSITION TO BE MEASURED BY WATER ', 

1 'IMMERSION (Y/N)? ' ,$) 

910 FORMA T( /IX, 'NUDE WEIGHT IN KG: ' ,$) 

911 FORMA T(/3X, ' WATER TEMPERATURE IN C ENTI GRADE : ' ,$) 

912 FORMA T(/3X,' WATER DENSITY IN KG/L: ' ,$) 

913 FORMA T(/3X,' RESIDUAL VOLUME IN L: ' ,$) 

914 FORMA T(/3X,' WEIGHT OF UNDERWATER CHAIR IN KG: ' ,$) 

915 FORMA T(/3X,' ENTER THE NUMBER OF TRIALS FOR UNDERWATER ', 

1 'WEIGHT: ' ,$) 

916 FORMA T(/5X,' TRIAL ',12,' UNDERWATER WEIGHT IN KG: ' ,$) 

917 FORMA T(/3X,' DATE OF MEASUREMENTS (MM-DD-YY): ' ,$) 

918 FORMA T(//1X, ' IS BODY COMPOSITION TO BE MEASURED BY ', 

1 'SKINFOLD PROCESS I (Y/N)? ' ,$) 

919 FORMA T(/3X , ' BODY SIDE USED (R/L)? ' ,$) 

920 FORMA T(/3X , ' ENTER THE NUMBER OF MEASUREMENTS RECORDED: ' ,$) 

921 FORMA T(/5X,' MEASUREMENT ',11,' BICEPS IN MM: ' ,$) 

923 FORMA T(/5X,' MEASUREMENT ',11,' TRICEPS IN MM: ' ,$) 

925 FORMA T(/5X,' MEASUREMENT ',11,' SUBSCAPULAR IN MM: ' ,$) 

927 FORMA T(/5X,' MEASUREMENT ',11,' SUPRAILIAC IN MM: ' ,$) 

928 FORMA T( //IX,' IS BODY COMPOSITION TO BE MEASURED BY ', 

1 'SKINFOLD PROCESS II (Y/N)? ' ,$) 

930 FORMA T(/5X,' MEASUREMENT ',11,' MIDCLAVICULAP. IN MM: ' ,$) 

932 FORMA T(/5X,' MEASUREMENT ',11,' UMBILICUS IN MM: ' ,$) 

934 FORMA T( /5X ,' MEASUREMENT ' , II , ‘ ANTERIOR MID-THIGH IN MM: ' ,$) 
999 FORMA T( IX) 

935 FORMA T(/1X, 'AGE IN YEARS: ',$) 

936 FORMA T(/1X , ' ERROR IN ENTERING FILENAME, FILENAME 3 ', 30A1) 

937 FORMAT! /IX, 'ALIGN PAPER TO TOP OF PAGE AND HIT CARRIAGE ', 

1 'RETURN'/) 


940 FORMA T(/20X,' PERSONAL CHARACTERISTICS PROFILE’/) 

941 FORMA T(/2X, ^SUBJECT' , Til, 11A1 , T36, 'DA TA FILE' , T52 ,30A1 ) 

942 FORMA T(/2X,' DATE' , Til ,3A1 ,A3,3A1 , T36 ,A8, T52 ,' AGE' ,4X , 12) 

944 FORMA T(/2X, 'HEIGHT' , Til, F6.1,' CM', 136,'% BODY FAT' , T51 ,F5. 1 ,' %' 

943 FORMA T(/2X, 'HEIGHT' , Til, F6.1,' CM', 136,'% BODY FAT', 

1 T49,' UNKNOWN' ) 

938 FORMA T(/2X , ' NUDE' , 

1 /2X , ' WEIGHT' ,T10,F7.1,' KG' ,136, 'DATE OF BIRTH' ,T52, 

2 3A1 ,A3,3A1) 

945 FORMA T(//T23,' BODY COMPOSITION EVALUATIONS', 

1 ///IX , 22 ( '-'),' WATER IMMERSION PROCESS ' ,22( ' - ' ) , 

2 //2X , ' NUDE WEIGHT' ,T26,F7. 2,' KG' , T40, ' WATER TEMPERA TURE' , T57 , 

3 F6.2, ' C , 

4 //2X, 'RESIDUAL VOLUME' ,126, F7. 2,' L ' , T40 , ' WA TER DENSI TY ' , T57 , 

5 F6. 2 , ' KG/L' , 

6 //2X,' UNDERWATER CHAIR WEIGHT' ,T26,F7.2,' KG' , T40 , 'DA TE' , T58, 

7 3A1 ,A3 ,3A1) 
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0443 946 FORMA T(/10X, 'UNDERWATER WEIGHT (KG)' ,141, 

1 ’AVERAGE UNDERWATER WEIGH T *' ,F7.2,' KG' , 

2 //10X,' TRIAL', T21,' WEIGHT (KG) T41 ,' TRIAL' , T51 WEIGHT (KG)') 

0444 947 FORMA T( / H 3 , 1 1 , T19 , F7 . 2 , T43 , 12 , T49 , F7 . 2 ) 

0445 948 FORMA T(/2X,' WATER WEIGHT' , T16.F7. 2,' KG* » T40 , 1 BODY VOLUME', 

1 T53,F7.2,' l\ 

2 //2X , ' BODY DENSITY' , Tib, F8. 3,' KG/L',T40,'% BODY FAT', 

3 T53.F7.2,' %' ) 

0446 950 FORMA T( ///IX, 22 ('-'),' SKINFOLD PROCESS I ',22(’-'), 

1 //2X , ' BODY SIDE USED' ,2X,A5, T48,'DA TE ' ,2X, 

2 3A1 A3 3A1 

3 //2X,’ TRIAL' ,121, 'MEASUREMENTS IN MM' , 

4 //Til, 'BICEPS’ ,T25,' TRIC EPS' ,T38,' SUBSCAPULAR' ,T54, 

5 ' SUPRAILIAC ' ) 

0447 951 FORMA T(/T5,I1, T11,F5.2,T26,F5.2,T41 ,F5.2, T56,F5.2) 

0448 952 FORMA T(/2X,' MEAN' , Til ,F5. 2 , T26.F5.2 , T41 ,F5.2, T56 ,F5.2) 

0449 953 FORMA T(/2X,' BODY DENSITY ', T17 ,F7.3 ,' KG/L',T48, 

1 '% BODY FA T* , T60.F7.2 , ' %' ) 

0450 954 FORMA T( ///IX ,22( ' — *),* SKINFOLD PROCESS II ',22('-'), 

1 //EX , ' BODY SIDE USED' ,2X,A5, T48,'DA TE' ,2X,3A1,A3,3A1, 

2 //2X,' TRIAL' ,T21,' MEASUREMENTS IN MM' , 

3 //T7, ' MIDCLAVICULAR' ,T24, 'UMBILICUS' ,T37, 

4 'ANTERIOR MID- THIGH' ) 

0451 955 FORMA T(/ T5, II , Til ,F5,2, T26,F5.2, T41 ,F5.2) 

0452 956 FORMA T(/2X,' MEAN' , T11,F5.2 , T26 ,F5.2, T41 ,F5.2) 

0453 957 FORMA T(/2X,'-i BODY FAT' , T26 ,F7. 2 , T38 ,F7. 2 , 

1 T49.F7.2, T6U,F7.2. T72 ,F7.2) 

0454 960 FORMA T( ///IX, 22( * - * ),' NU TRI TIUN JOURNAL FORMULA ', 

1 22('-‘), 

2 //2X, ' BODY VOLUME' ,T23,F7. 2,' L' , T44 , ' BODY DENSITY' , 

3 T60,F8.3,' KG/L' , 

4 //2X,'$ BODY FAT' ,723,F7.2,‘ %' ,T44,'X FAT FREE MASS' , 

5 T60.F7.2,' %' , 

6 //2X , TOTAL BODY WATER' , T23,F7.2,' %' ) 

0455 961 FORMA T(///1X,22( *-'),' NI TROGEN CONTENT DA TA ' ,32( ' - ' ) , 

1 //T28,' KNOWN' ,T39,' WATER' ,T48,' SKINFOLD' , T59, ' SKINFOLD ', T71 , 

2 ’NUTRITION', 

3 /T25, BODY FAT' , T37 ,' IMMERSION' , T48, ' PROC ESS I', 

4 T59, 'PROCESS II' ,T72,' JOURNAL' ) 

0456 962 FORMA T(/2X,' FAT WEIGHT (KG) ' ,T26,F7.2, T38.F7.2, T49,F7.2, T60.F7.2, 

1 T72.F7.2) 

0457 963 FORMA T(/2X,' FAT FREE MASS (KG) ' , T2b,F7.2, T38,F7.2, T49.F7.2, T60, 

1 F7.2, 772, F7. 2) 

0458 964 FORMA T(/2X,' LEAN BODY' , 

1 /2X,' WATER MASS (KG) ' , T26 , F7 . 2 , T38 , F7 . 2 , T49 , F7 . 2 , TOO , 

2 F7.2 , T72 ,F7.2) 

0459 965 FORMA T(/2X,' VOLUME OF FAT (L) ' , T26.F7.2 , T38.F7.2, T49.F7.2, T60, 

1 F7.2, 772, F7. 2) 

0460 966 FORMA T(/2X,' VOLUME LEAN', 

1 /2X , ' BODY WATER (L) ' , T26 ,F7.2 , T38.F7.2, T49 ,F7.2 , T60 , 

2 F7.2, T72,r7.2) 

04ol 967 FORMA T(/2X,' NITROGEN IN FAT (L) ' , 726, F8. 3, T38.F8.3 , T49,F8.3, T60 , 

1 F8.3, T72.F8.3) 

04b2 968 FORM/\ T( /2X , ' NI TROGEN IN', 

1 /2X , ' LEAN BODY WATER (L ) ' , T26.F8.3, T38,F8.3 , T49 ,F8.3, T60 , 
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f 


2 F8.3.T72.F8.3) 

0463 969 FORMA TC/2X, ' TOTAL BODY' , 

1 /2X,‘ NITROGEN ( L ) ' , T26 , F8. 3 , T38 , F8. 3 , T49 , F8 . 3 , T60 , 

2 F8.3, T72.F8.3) 

0464 970 F0RMAT(/2X,'NITR0GEN/KG' , 

1 /2X , 1 BODY WEIGHT (L) ' ,T26,F9.4, T38.F9.4, T49,F9.4,T60,F9.4 

2 T72 F9.4) 

0465 971 FORMA T(//T23,' BODY COMPOSITION EVALUATIONS', 

1 //IX ,22( WATER IMMERSION PROCESS NOT DONE' ,22( ) 

0466 972 FORMA T(///1X, 22( ' - ' ),' SKINFOLD PROCESS I NOT DONE ' ,22{ ' 

0467 973 FORMA T(///1X,22( ' - ' ),' SKINFOLD PROC ESS II NOT DONE ' ,22( 

0468 981 FORMA T(11A1 ,8A1 , 12,A1 ,8A1 ,F6. 1 ,F5. 1 ,F7.2) 

0469 982 FORMA T( F7 . 2 , F7 . 3 , F7 . 2 , F7 . 2 , F7 . 2 ) 

0470 983 FORMA T( F7»3,F7.2) 

0471 984 FORMA T(F7.2,F7.2,F7.2,F7.2,F7.2,F7.3,F7.3,F7.3,F7.4) 

0472 985 F0RMAT(F7.2,F7.2,F7.2,F7.3,F7.2) 

0473 800 FORMA T(Q,30A1) 

0474 801 FORMA T(Q,11A1) 

04/5 802 FORMA T(Q,8A1) 

0476 803 FORMA T(A1) 

0477 804 FORMA T(1X; 

0478 END 


ord&.ti ivx.i 

OF POOR QUALITY 

C 

c 


FORTRAN IV 


Storage Map for Program Unit PDINPT 

Local Variables, .PSECT SDATA, 

Si ze 

* 001326 ( 

363 . words) 


Name 

Type 

Offset 

Name 

Type 

Offset 


Name 

Type 

Offset 

AGE 

1*2 

001040 

AVGBIC 

R*4 

001172 


AVGMCL 

R*4 

001232 

AVGM1H 

R*4 

001242 

AVGSUB 

R*4 

001202 


AVGSUP 

R*4 

001206 

AVGTRI 

R*4 

001176 

AVGUMB 

R*4 

001236 


AVSUM1 

R*4 

001212 

AVSUM2 

R*4 

001246 

AVUUWT 

R*4 

001146 


BDP1 

R*4 

001226 

80 P2 

R*4 

001256 

BDWI 

R*4 

001162 


BFKNOW 

R*4 

001046 

BFPCT 

R*4 

001102 

BSID1 

L*1 

001031 


BSID2 

L*1 

001027 

BVOLWI 

R*4 

001156 

DEN 

R*4 

001272 


HEIGHT 

R*4 

001042 

J 

1*2 

001140 

K 

1*2 

001316 


KSP1 

L*1 

001026 

KSP2 

L*1 

001030 

KWI 

L*1 

001025 


K1 

1*2 

001312 

K2 

1*2 

001314 

M 

1*2 

001320 


MEAS1 

1*2 

001034 

MEAS2 

1*2 

001036 

MONTH 

R*4 

001072 


N 

1*2 

001144 

NC 

1*2 

001142 

NF 

1*2 

001136 


NUDEWT 

R*4 

001062 

PCBFP1 

R*4 

001222 

PCBFP2 

R*4 

001262 


PCBFWI 

R*4 

001166 

PCF 

R*4 

00127b 

PCFFM 

R*4 

001302 


PCTBW 

R*4 

001306 

RES VOL 

R*4 

0010b6 

SEX 

L*1 

001024 


SI 

R*4 

001216 

S2 

R*4 

001252 

TEMP 

R*8 

001105 


TEMPI 

R*8 

001116 

TEMP2 

R*8 

001126 

TRIAL 

1*2 

001032 


UWCHWT 

R*4 

001076 

VOL 

R*4 

001266 

WATERD 

R*4 

001062 


W4TERT 

R*4 

001056 

WATRWT 

R*4 

001152 








Local < 

ind COMMON Arrays 

• 







Name 

Type Section Offset 

«• M M • 

--Size-- 


Dimensions 


BICEP 

R*4 

SDATA 

000172 

000014 ( 

6.) 

(3) 



8IRTHD 

L*i 

SDATA 

000013 

000010 ( 

4.) 

(8) 



OATE 

L*1 

SDATA 

000023 

000010 ( 

4.) 

(8) 



FATWT 

R*4 

SDATA 

000316 

000024 ( 10.) 

(5) 



FFMASS 

R*4 

SDATA 

000342 

000024 ( 10.) 

(5) 



FILENM 

L*1 

SDATA 

000063 

000037 ( 16.) 

(31) 



IDCOOE 

L*1 

SDATA 

000000 

000013 ( 

6.) 

(11) 
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ORiesr\H. liV' . 

OF ptto.2 <!■ 


LBWM 

R*4 

$DA TA 

000366 

000024 ( 

10.) 

(5) 

MEASDT L*1 

$QA TA 

000033 

000010 ( 

4.) 

(8) 

MI DC LA 

R*4 

$DA TA 

000252 

000014 ( 

6.) 

(3) 

MTHIGH 

R*4 

$ DATA 

000302 

000014 ( 

6.) 

(3) 

NITDEN 

R*4 

$DATA 

000556 

000024 ( 

10.) 

(5) 

NIFAT R*4 

$DA TA 

000462 

000024 ( 

10.) 

(5) 

NITLBN 

R*4 

$DA TA 

000506 

000024 ( 

10.) 

(5) 

PR1DT 

L*1 

$DA TA 

000043 

000010 ( 

4.) 

(8) 

PR2DT 

L*1 

$DA TA 

000053 

000010 ( 

4.) 

(8) 

SUBSCA 

P*4 

$DA TA 

000222 

000014 ( 

6.) 

(3) 

SUPRAI 

R*4 

$DA TA 

000236 

000014 ( 

6.) 

(3) 

TBNIT 

R*4 

$DA TA 

000532 

000024 ( 

10.) 

(5) 

TRIG EP 

R*4 

$DA TA 

000206 

000014 ( 

6.) 

(3) 

UM8ILI 

R*4 

$DA TA 

000266 

000014 ( 

6.) 

(3) 

UWWT 

R*4 

$DA TA 

000122 

000050 ( 

20.) 

(10) 

VOLFAT R*4 

$DA TA 

000412 

000024 ( 

10.) 

(5) 

VOLLBW 

R*4 

$DA TA 

000436 

000024 ( 

10.) 

(5) 


FORTRAN IV Storage top for Program Unit PDINPT 

Subroutines, Functions, Statement and Processor-Defined Functions: 


Name 

Type 

Name 

Type 

Name 

Type 

Name 

Type 

Name 

Type 

AL0610 

R*4 

ESTIM 

R*4 

EXIT 

R*4 

LINE 

1*2 

SWAPD T 

R*4 


YORN 1*2 
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0001 INTEGER FUNCTION Y0RN*2(K) 

0002 LOGICAL*! X 

0003 801 FORMA T(A1) 

0004 100 READ (5, 801, EN0=200) X 

0005 YORN=Q 

0006 IF (X. EQ. 1HN.0R. X. EQ. 1HN) Y0RN=-1 

0008 IF ( X . EQ . 1HY . OR. X . EQ , 1H Y ) Y0RN*1 

0010 IF (YORN.EQ.Q) GO TO 200 

0012 REURN 

0013 200 WRI T£(7 ,901 ) 

0014 901 FORMAT! 1 PLEASE ANSWER Y OR N' ) 

0015 GO TO 100 

0016 END 
C 


ofoW‘5 
of pea,. 1 


v u •/ 


c 

FORTRAN IV Storage f4ap for Program Unit YORN 

Local Variables, .PSECT $DATA, Size = 000005 ( 3. words) 


Name Type Offset 

K 1*2 @ 000000 


Name Type Offset Name lype Offset 

X L*1 000004 YORN 1*2 000002 Eqv 
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0001 SUBROUTINE LINE(N) 

0002 COMMON/LCQUNT/LC 

0003 IF (N.EQ.Q) LC*Q 

0005 IF (N.NE.O) LC-LC+N 

0007 RETURN 

0008 END 
C 

C 

FORTRAN IV Storage Map for Program Unit LINE 

Local Variables, .PSECT $DATA, Size = 000002 ( 1. words) 

Name Type Offset Name Type Offset Name Type 

N 1*2 0 000000 


COMMON Block /LCOUNT/ , Size * 000002 ( 1. words) 

Name Type Offset Name Type Offset Name Type 

UC 1*2 000000 


Offset 


Offset 
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CF 4 .', - • •> 

0001 SUBROUTINE ESTIM(N) 

0002 COMMON/LCOUNT/LC 

0003 IF (N+LC.LT.51) RETURN 

0005 ND=51-LC 

0006 DO 100 1=1, NO 

0007 100 WRI TE(7 ,901) 

0008 901 FORMA T( 1 X ) 

0009 l£=0 

0010 RETURN 

0011 END 

FORTRAN IV Storage Map for Program Unit ESTIM 

Local Variables, .PSEC T $DA TA, Size = 000006 ( 3. words) 


Name 

Type 

Offset 

Name 

Type Offset Name 

Type 

Offset 

I 

1*2 

000004 

N 

1*2 0 000000 ND 

1*2 

000002 

COMMON 

Block /LCQUNT/, 

Size = 

000002 ( 1. words) 



Name 

Type 

Offset 

Name 

Type Offset Name 

Type 

Offset 

LC 

1*2 

000000 
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ncr, 1 ” 


. (!' 


n ,n : 


»Y 


0001 

0002 

0003 

0004 
0006 
0008 
0010 
0012 
0014 
0016 
0018 
0020 
0022 
0024 
0026 
0028 
0030 
0032 
0034 
0036 
0038 
0040 
0042 
0044 

0046 

0047 


SUBROUTINE SWAPD T(X , MONTH) 

LOGIC AL*1 X ( 8 ) 

REAL*4 MONTH 

IF( X ( 1 ) . EQ . 1 0 ' .AND . >U2 ) . EQ . ' 1 ' ) MONTH='JAN' 
IF(X(1).EQ.'0'.ANU.X(2).EQ.'2') MONTH® 1 FEU 1 
IF(X(l).EQ,'0'.ANi).X(2).EQ.'3') MONTH 3 ' MAR' 
IF(X(1).EQ.'0’.AND.X(2).EQ.'4’) MONTH® ' APR ' 
IF(X(1).EQ.'0'.AND.X(2).EQ.'5 I ) MONTH 3 ' MAY' 
IF(X(1).EQ. , 0'.ANU.X(2).EQ.'6' ) MONTH®' JUN' 
IF(X(1) .EQ. 'O' ,AND.X(2) . EQ. 1 7 ' ) MONTH® 'JUL' 
IF(X(1).EQ.'0' .AND ,X(2).EQ.'8' ) MONTH® 'AUG' 
IF(X(1).EQ.'0' .AND. X(2) .EQ. ' 9 ' ) MONTH® ' SEP ' 
IF(X(1) .EQ. ' ' .AND.X(2).EQ.'l' ) MONTH®' JAN' 
IF(X(1).EQ.' ' . A ND . X ( 2 ) . EQ . ' 2 ' ) MONTH® ' FEB ' 
IF(X(1) .EQ. ' ' .AND. X(2) ,EQ. ' 3 ' ) MON TH= ' MAR' 
IF(X(1 ) .EQ. ' ' .AN0cX(2) . EQ. ' 4 ' ) MONTH='APR' 
IF( X(1 ) .EQ. ' ' .AND. X(2 ) . EQ. ' 5 ' ) MONTH 3 'MAY' 
IF( X ( 1 ) .EQ. ' ' .AND.X(2) .EQ. *6 ' ) MONTH='JUN' 
IF ( X ( 1 ) .EQ. ' ' .AND . X ( 2 ) . EQ . * 7 ' ) MONTH='JUL' 
IF( X(1 ) . EQ. ' ' .AND. X(2) .EQ. * 8 ' ) MONTH='AUG' 
IF(X(1 ) .EQ. ' ' .AND. X(2 ) . EQ . ' 9 ' ) MONTH='SEP' 
IF(X(1) . EQ . ' 1 ' .AND . X ( 2 ) . EQ. '0 ' ) MONTH 3 'OC T' 
IF( X(1 ) . EQ. ' 1 ' .AND. X(2 ) . EQ. ' 1 ' ) MONTH 3 ' NOV’ 
IF( X( 1 ) . EQ. ' 1 ' .AND. X(2) . EQ. ' 2 ' ) MONTH='DEC ' 
RETURN 
END 


FORTRAN IV Storage f4ap for Program Unit SWAPD T 

Local Variables, .PSECT $DATA, Size = 000004 ( 2. words) 


Name Type Offset Name Type Offset Name Type Offset 
MONTH R*4 @ 000002 


Local and COMMON Arrays : 

Name Type Section Offset Size Dimensions 

X L*1 @ $DA TA OOOOOQ 000010 ( 4.) (8) 
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5.2 DECOMPRESSION DATA PROGRAM 


of»'*! r 

OF Puu.% cjv i , u 


c 

c 

c 

c 

c 

c 

c 

c 


* * 

* * 

* TECHNOLOGY INCORPORATED * 

* LIFE SCIENCES DIVISION * 

* DEPARTMENT OF BIOMA THEMATIC S SERVICES * 

C * * 

C * * 

P ********************************************************************* 

c * * 

c * * 

C * PROGRAM WME: DECDAT * 

C * DESIGNER/ANALYST: CRAIG E. LITTON * 

C * PROGRAMMER: PENNY BUEKER * 

C * DATE: 31 JANUARY 1982 * 

C * * 

C * * 

C * - - * 

c * * 

Q * 

C * COMPUTER SYSTEM: LSI-11 * 

C * OPERATING SYSTEM: RT-11V4 * 

C * * 

C * * 

C * - * 

C * * 

C * * 

Q * 

C * COMPILING SEQUENCE: * 

C * * 

C * LSI: FORTRAN DECDAT * 

C * * 

C * * 

c * - * 

c * * 

c * * 

Q * ^ 

C * LINKING SEQUENCE: * 

C * * 

* LSI: LINK DECDAT * 

* * 

* * 

* * 

* * 


u 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 


EXECUTION SEQUENCE: RUN DECDAT 


* 

* 

* 

********* ******************** ****************** ********************** 
it****************************** ************************************** 
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* * 


o o o o o o <-> O O O O GOO O O O O O O OOO O O O CO O O O o o o o o ooooooooo ooo o oo o o o 


0001 


* , 

l. 6 


■ + * 6 ** 

OF S'{h« QUALITY 


ccccccccccccccccccccccccccccccccccoccccccccccccccccccccccccccccccccccccc 

PROGRAM DEC DA T 


TABLE OF VARIABLES 


VARIABLE 
UBG10T 
BBG20T 
BBG3QT 
BDG40T 
BUG1RP 
BBG2RP 
BBG3RP 
BBG4RP 
BBG1RT 
BBG2RT 
BBG3RT 
BBG4RT 
BNG10T 
BNG20T 
BNG30T 
BNG40T 
BNG1RP 
BNG2RP 
BNG3RP 
BNG4RP 
BNG1RT 
BNG2RT 
BNG3RT 
BNG4RT 
BNDLC 
BNDPRS 
BUB MS 
BUBPRS 
DR180 

0R24O 

DR360 

DURPH 

EXERLV 

FP 

IDCODE 

IPN2 

NPH 

PN2PH 

PPT180 

PPT240 

PPT3t>0 

TEMP 

TESTDT 

TESTMO 

TIMFD 

TIMR 


USE 

ONSET TIME OF GRADE 1 BUBBLES 
ONSET TIME OF GRADE 2 BUBBLES 
ONSET TIME OF GRADE 3 BUBBLES 
ONSET TIME OF GRADE 4 BUBBLES 
PRESSURE AT REMISSION OF GRADE 1 BUBBLES 
PRESSURE AT REMISSION OF GRADE 2 BUBBLES 
PRESSURE AT REMISSION OF GRADE 3 BUBBLES 
PRESSURE AT REMISSION OF GRADE 4 BUBBLES 
TIME OF REMISSION OF GRADE 1 BUBBLES 

TIME OF REMISSION OF GRADE 2 BUBBLES 

TIME OF REMISSION OF GRADE 3 BUBBLES 

TIME OF REMISSION OF GRADE 4 BUBBLES 

ONSET TIME OF GRADE 1 BENDS 
ONSET TIME OF GRADE 2 BENDS 
ONSET TIME OF GRADE 3 BENDS 
ONSET TIME OF GRADE 4 BENDS 
PRESSURE AT REMISSION OF GRADE 1 BENDS 
PRESSURE AT REMISSION OF GRADE 2 BENDS 
PRESSURE AT REMISSION OF GRADE 3 BENDS 
PRESSURE AT REMISSION OF GRADE 4 BENDS 
TIME OF REMISSION OF GRADE 1 BENDS 

TIME OF REMISSION OF GRADE 2 BENDS 

TIME OF REMISSION OF GRADE 3 BENDS 

TIME OF REMISSION OF GRADE 4 BENDS 

LOCATION OF BENOS 
ARE BENOS PRESENT (Y/N)? 

WERE BUBBLES MEASURED (Y/N)? 

WERE BUBBLES PRESENT (Y/N)? 

DECOMPRESSION RATIO AT 180 MIN 

DECOMPRESSION RATIO AT 240 MIN 
DECOMPRESSION RATIO AT 360 MIN 
DURATION OF PHASE I 
EXERCISE LEVEL 
FINAL PRESSURE 
SUBJECT IDENTIFICATION CODE 
INITIAL PRESSURE OF N2 
NUMBER OF PHASES 

PRESSURE OF N2 DURING WASHOUT PHASE I 

TISSUE N2 (PSI) AT FINAL DECOMPRESSION 180 MIN 

TISSUE N2 (PSI) AT FINAL DECOMPRESSION 240 MIN 

TISSUE N2 (PSI) AT FINAL DECOMPRESSION 360 MIN 

TEMPERA 1URE IN DEGREES CENTIGRADE 

TEST DATE 

TEST NUMBER 

TIME OF FINAL DECOMPRESSION 
TIME OF RECOMPRESSION 


DECOMPRESSION EXPERIENCE DATA PROGRAM 
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0002 


0003 

0004 


0005 


0006 

0007 

0008 
0010 
0011 


0012 

0013 

0014 

0015 


0016 

0017 

0018 
0020 
0021 
0022 

0023 

0024 


0026 

0027 

0028 

0029 

0030 

0031 



LOGIC AL*1 IDCODE(ll), TES ID T(8 ) , TIMED (5) , TIMR(5), EXERLV , 

1 BBGlOT(b) , BBG20T(5), UBG3C T( 5 ) , BUB MS, BUBPRS, 

2 BBG1RK5), BBG2RT{5) , BBG3RT(5) , SBG4RT(5), 

3 BNG10T(5), BNG20 T(5) , BNG3QT(5), BNG40T(5), 

4 BNG1RT(5), BNG2RT(5), BNG3RT(5) , BNG4RT(5) , 

5 BNDPRS, BNDl£(15) , BBG40T(5), FILENM(31) 

INTEGER* 2 TESTNO, TEMP, OURPH(IO), YORN, NPH 

REAL *4 IPN2, PN2PHU0), FP, MONTH, 

1 BBG1RP, BBG2RP, BBG3RP, BBG4RP, 

2 BNG1RP, BNG2RP, BNG3RP, BNG4RP, 

5 PPT180,PPT240,PPT360, 

5 DR180, DR240, DR360 


PRINT START MESSAGE 


100 WRI TE(7 ,900) 

Z GET DATA FILE NAME 


50 WRITE( 7, 901) 

READ (5, 805, ENU=bO) NF , (FILENM(J ) ,J=1 ,NF) 

IF (NF.LE.O) GO TO 50 
FILENM ( NF+1 )=0 

0PEN(UNIT=1 , NAME=FILENM, TYPE 3 ' NEW* , ACC ESS*' SEQUENTIAL' , 

1 FORM 3 'FORMATTED' , ERR=80, DISP*'KEEP' , 

2 CARRIAGECONTROL*' FORTRAN' ) 

REWIND 1 

GO TO 102 

80 WRI TE(7 ,905) (FILENM! J ) , J=1,NF) 

GO TO 50 

TEST IDENTIFICATION 

102 WRITE! 7, 902) 

READ (5 ,800 , END*102 ) Ml, (IXOUE(J) ,J a l,IC) 

IF! 1C. NE. 11) GO TO 102 

103 WRI TE(7 ,903) 

REAU(5,*,END*103) TESTNO 

104 WRI TE(7 ,904) 

READ (5 ,801 , END=104) C , ( TESTUT(J ) ,J*1 ,N3 ) 

IF (tC.NE.8) GO TO 104 

N2 WASHOUT 

DO 112 1*1,10 
PN2PH(I )=0. 

112 DURPH(I) 3 0 

105 WRI TE(7 ,911) 

READ (5 ,* ,END=1U5) NPH 

106 WRI TE(7 ,906) 
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0032 

0033 

0034 
003b 

0036 

0037 


0038 

0039 

0040 

0041 
0043 

0043 

0044 

0046 

0047 

0048 

0050 

0051 

0052 


0054 

0055 

00o6 

0057 

0058 

0059 

0060 
0061 
0062 
0063 
00b4 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 
0080 
0081 
0082 

0084 

0085 



READ(5,*,EN0=106) IPN2 
DO 111 I-l.NPH 
108 WRI Tt(7 ,907) 

READ (5,*, END-108) PN2PH(I) 

110 WRI TE(7 ,908) 

111 READ(5,*, END-110) DURPH(I) 

C 

C CHAMBER RUN 

C 

116 WRITE(7,912) 

RErtD(5,*,EN0-llb) FP 
118 WRI TE(7 ,913) 

READ(5,*,EN0=118) TEMP 
120 WRI TE(7 ,914) 

READ (5,802. END-120) NC , ( TIMFD(J ) ,J-1 ,NC ) 

IF(NC.NE.S) GO TO 120 
122 WRI TE(7 ,915) 

READ(5, 802, END-122) NC , ( TIMR(J) ,J-1 ,NC) 

IF(NC.NE.5) GO TO 122 

124 WRI TE(7 ,916) 

READ(5,803,EN0=124) EXERLV 

IF( EXERLV . NE. ' L ' .AND . EXERLV . NE. ' M' .AND . EXERLV . NE. ' H ' ) GO TO 124 

SYMPTOMS 

BUUMS=0 
UUUPRS=0 
DO 125 J=1 ,5 
BBG10T(J )® ' ' 

BBG20T(J )=' ' 

BBG30T( J )= ' ' 

UUG40T(J )= 1 ' 

BBG1RT(J )= 1 ' 

BBG2RT(J )= 1 ' 

BBG3RT(J )= ' ' 

125 B6G4RT(J )=' ' 

BBG1RP=0. 

BBG2RP-0 . 

BBG3RP = 0 . 

BBG4RP=0. 

126 WRI TE(7 ,918) 

BUBMS-YORN(O) 

IF (BUBMS) 160, 126, 128 

128 WRI TE( 7 ,919 ) 

BUBPRS=Y0RN(0) 

IF (BUBPRS) 160, 128, 130 
130 WRI TE(7 ,920) 

132 WRI TE ( 7 921) 

READ (5 ,802, END=132) N3 , ( BBG10 T( J ) ,J-1 ,NC ) 

IF(NC.LE.O) GO TO 132 
134 WRITE( 7, 922) 

R5AD(5, 802, END-134) 1C, ( 8BG20 T(J ) ,J=1 ,NC ) 

IF(NC.LE.O) GO TO 134 
136 WRI TE(7 ,923) 

READ (5, 802, END-1 36) NC , (BBG30T(J ) ,0=1 ,MC ) 
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OF PGOrt Ql»*iLiTY 




I 


0086 


IF(NC.LE.O) GO TO 136 

0088 

138 

WRI TE(7 ,924) 

0089 


READ ( 5 , 802 . END=1 38 ) K, ( B8G40T(J ) ,J«1 ) 

IF(Ml.LE.O) GO TO 138 

0090 


0092 

140 

WRI T£(7 ,920) 

0093 

142 

WRI TE(7 ,925) 

0094 


READ (5, 802, END =142) NC , (BBGlRT(d) ,J=1 ,fC) 

0095 


IF(NC.LE,0) GO TO 142 

0097 

144 

WRI TE(7 ,926) 

0098 


READ(5,802,END=144) N3 , ( BBG2RT(d ) ,0=1 ,NC ) 

0099 


IF(NC.LE.O) GO TO 144 

0101 

146 

WRITE! 7, 92 7) 

0102 


READ(5 ,802,END=146) NC , ( BBG3RT( J ) ,d=l ) 

0103 


IF(NC.LE.O) GO TO 146 

0105 

148 

WRI TE(7 ,928) 

0106 


READ ( 5,002 , END=1 43 ) Ml, ( BBG4RT(J ) ,0=1 ,NC ) 

0107 


IF(NC.LE.O) GO TO 148 

0109 

150 

WRI T£(7 ,920) 

0110 

152 

WRITE! 7, 929) 

0111 


READ (5,* ,END=152) BBG1RP 

0112 

154 

WRI TE(7 ,930) 

0113 


READ(5,*,EN0=154) BBG2RP 

0114 

156 

WRI TE(7 ,931) 

0115 


READ (5,* ,END=156) BBG3RP 
WRI Tt(7,932) 

0116 

158 

0117 


READ(5,*,END=158) BBG4RP 

0118 

160 

8NDPRS=0 

0119 


DO 162 J=1 ,15 

0120 

162 

BNDLC ( J )= 1 ' 

0121 


DO 165 J=1 ,5 
BNG10T(J )= ' ' 

0122 


0123 


BNG20T(J)=' ' 

0124 


BNG30T(J)=' ' 

0125 


BNG40 T(J )= 1 ' 

0126 


BNG1RT! J )= 1 ' 

0127 


BNG2RT(J )= ' ' 

0128 


BNG3RT(J )= ' ' 

0129 

165 

BNG4RT(J )= 1 ' 

0130 


8NG1RP=0. 

0131 


BNG2RP=0. 

0132 


BN63RPO. 

0133 


BNG4RP=0. 

0134 

161 

WRI TE(7 ,933) 

0135 


BNDPRS=Y0RN(0) 

0136 


IF (BNDPRS) 194, 161, 163 

0137 

163 

WRI TE(7,935) 

0138 


READ(5,804,EN0=163) NC ,( BNDLC (0 ) ,J=1 ,NC ) 

0139 


IF(NC.LE.O) GO TO 163 

0141 

164 

WRI T£(7 ,934) 

0142 

166 

WRI TE(7 ,921 ) 

0143 


READ(5,802,EN0=166) NC , ( 8NG10T(0 ) ,0=1 , NC ) 

0144 


IF(NC.LE.O) GO TO 16b 

0146 

168 

WRI Tt(7 ,922) 

0147 


READ (5 ,802 ,END=168) NC , ( BNG20T(J ) ,J=1 ,NC ) 

0148 


IF(NC.LE.O) GO TO 168 


i 
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OL'-u... :w.’ r : 13 

OF POO.? QUALITY 

0150 170 WRI TE( 7 ,923) 

0151 READ (5, 802, END-170) NC , (BNG30T(J) ,J-1,IC) 

0152 IF(NC.LE.O) GO TO 170 

0154 172 WRI TE(7 ,924) 

0155 READ(5, 802, END-172) NC , ( BNG40T(J ) ,J«1 ,IC ) 

0156 IF ( hC .LE.O) GO TO 172 

0158 174 WRI T£(7 ,934) 

0159 174 WRI TE(7 ,925) 

0160 READ (5 ,802,END=176) NC , (BNG1RT(J) ,J»l,tC) 

0161 IF (NC. LE.O) GO TO 176 

0163 178 WRI TE(7 ,926) 

0164 READ(5, 802, END-178) Ml, ( BNG2RT(J ) ,J-1 ,NC) 

0165 IF(NC.LE.O) GO TO 178 

0167 180 WRI Tt£( 7 ,927) 

0168 READ(5,8Q2,END=180) NC , (BNG3RT(J) ,J S 1,NC) 

0169 IF( NO .LE.O) GO TO 180 

0171 182 WRI TE(7 ,928) 

0172 READ (5 ,802 . END-182 ) NO , ( 6NG4RT( J ) ,0=1 ,N0 ) 

0173 IF! NC. LE.O) GO TO 182 

0175 184 WRI TE(7 ,934) 

0176 186 WRITE( 7, 929) 

0177 READ (5 ,* ,END=186) BNG1RP 

0178 188 WRI TE(7 ,930) 

0179 READ(5,*,END=188) BNG2RP 

0180 190 WRITE! 7, 931) 

0181 READ (5 ,* , END— 190 ) BNG3RP 

0182 192 WRI TE(7 ,932) 

0183 READ(5,*,END=192) BNG4RP 

0184 194 CONTINUE 

C 

C CALCULATIONS 

C 

0185 CALL DEC RAT (IPN2, NPH, 

1 PN2PH , DURPH, FP, 

2 PPT180, PPT240, PPT360, DR180, 

3 DR240, DR360) 

C 

C REPORT 
C 

C DECOMPRESSION DATA OUTPUT 

C 

0186 WRI TE(7 ,937) 

0187 READ (5 ,806) 

0188 CALL SWAPDT(TES TOT, MONTH) 

0189 200 WRI TE(7 ,940) IUCOUE, TESTUT(4) ,TESTDT(5) ,TES1DT(3), 

1 MONTH, TES1U T(6), TESTD T(7) ,TESTUT(8) 

0190 202 WRI T£( 7 , 94 1 )PP T180 , PPT240, PPT36D 

0191 204 WRI TE(7 ,942)DR180 , DR240, DR360 
C 

C STORE DATA ON FILE 

C 

0192 WRITE! 1,981) IOC ODE, TESTNO, TESTDT, NPH, IPN2, 

1 FP, TEMP, TIMED, TIMR, EXERLV , BUB MS, BUBPRS 

0193 WRITE! 1,986) (PN2PH(J), 0=1, NPH) 

0194 WRI TE(1 ,987) (DdRPH(J), J=1,NPH) 
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0195 

0196 

0197 

0198 

0199 

0200 
0201 
0202 

0203 

0204 

0205 

0206 

0207 

0208 

0209 

0210 
0211 
0212 

0213 

0214 

0215 

0216 

0217 

0218 
0219 


0220 

0221 

0222 

0223 

0224 

0225 

0226 

0227 

0228 

0229 

0230 

0231 

0232 

0233 

0234 

0235 

0236 

0237 

0238 

0239 


0240 


orawr.«. 


',$) 

\$) 


WRI TE( 1,982) BBG10T, BBG20T, BBG30T, BBG40T 
WRI TE(1 ,982 ) 8BG1RT, 6BG2RT, 88G3RT, BBG4RT POU. 

WRITE! 1,983) BBG1RP, BBG2RP, BBG3RP, BBG4RP 
WRITE! 1,984) BNDPRS, BNDLC 
WRITE! 1,982) BNG10T, BNG20T, BNG30T, BNG40T 
WRITE! 1,982) BN GIRT, BNG2RT, BNG3RT, BNG4RT 
WRI TE< 1 ,983) BNG1RP, BNG2RP, BNG3RP, BNG4RP 
WRI TE( 1 ,985 ) PPT180, PPT240, PPT360, 0R180, DR240, DR360 
CLOSE(UNI T 3 1 ,D ISP 3 ' SAVE' ) 

CALL EXIT 

900 FORMA T(///10X ,' DECOMPRESS ION EXPERIENCE DATA PROGRAM'/) 

901 FORMA T(10X,' FILENAME ON WHICH TO STORE DATA ', 

1 /10X,'DEVIC E:FILENAME. TYPE* ' ,$) 

902 FORMAT! /IX,' SUBJECT IDENTIFICATION NUMBER (XXX-XX-XXXX) : ' ,$) 

903 F0RMAT(/1X,' TEST NUMBER (XX); ' ,$) 

904 FORMAT! /IX, 'TEST DATE (MM-DD-YY): ' ,$) 

905 FORMA T(/1X,' ERROR IN ENTERING FILENAME, FILENAME 3 ', 30A1) 

906 FORMA T(/1X,' INITIAL PN2 (PSI) (XX. XX): ' ,$) 

907 FORMAT! /IX, 'PN2 DURING WASHOUT, PHASE I (PSI) (XX. XX): 

908 FORMAT! /IX, 'DURATION OF WASHOUT, PHASE I (MIN) (XXXX): 

911 FORMAT! /IX, 'HOW MANY PHASES (XX): ' ,$) 

912 FORMAT! /IX, 'FINAL PRESSURE (PSIA) (XX. XX): ',$) 

913 FORMAT! /IX,' TEMPERATURE IN CENTIGRADE (XX); \$) 

914 FORMAT! /IX,' TIME OF FINAL DECOMPRESSION (HH:MM) : ' ,$) 

915 FORMAT! /IX,' TIME OF RECOMPRESSION (HH:MM) : ' ,$) 

916 FORMAT! /IX, 'EXERCISE LEVEL ', 

1 /16X , ' LOW 400- 800 B TO/HR 1 , 

2 /16X , ' MED 800-1600 BTU/HR 1 , 

3 /16X ,'HIGH 1600 BTU/HR AND ABOVE 1 , 

4 /46X , ' ENTER (L/M/H): ' ,$) 

918 FORMAT! /IX, 'WERE BUBBLES MEASURED (Y/N)? ' »$) 

919 FORMAT! /IX,' WERE BUBBLES PRESENT (Y/N)? ' ,$) 

920 FORMA T(/6X,' GRADE OF BUBBLES : ENTER 0 FOR NOT OBSERVED 

921 FORMAT! /IX, 'TIME OF ONSET GRADE 1 (HH :MM) 

922 FORMAT! /IX, 'TIME OF ONSET GRADE 2 (HH :MM) 

923 FORMAT! /IX, 'TIME OF ONSET GRADE 3 (HH :MM) 

924 FORMAT! /IX, 'TIME OF ONSET GRADE 4 (HH :MM) 

925 FORMAT! /IX,' TIME OF REMISSION GRADE 1 (HH 

926 FORMAT! /IX,' TIME OF REMISSION GRADE 2 (HH 

927 FORMAT! /IX,' TIME OF REMISSION GRADE 3 (HH 

928 FORMAT! /IX,' TIME OF REMISSION GRADE 4 (HH 

929 FORMAT! /IX, 'PRESSURE AT REMISSION GRADE 1 (PSIA) (XX. XX): 

930 FORMA T(/1X, 'PRESSURE AT REMISSION GRADE 2 (PSIA) (XX. XX): 

931 FORMAT! /IX, 'PRESSURE AT REMISSION GRADE 3 (PSIA) (XX. XX): 

932 FORMAT! /IX, 'PRESSURE AT REMISSION GRADE 4 (PSIA) (XX. XX): 

934 FORMA T(//6X,' GRADE OF BENDS : ENTER 0 FOR NOT OBSERVED, ') 

933 FORMAT! /IX,' WERE BENDS PRESENT (Y/N)? 1 ,$) 

935 FORMAT! /IX, 'BENDS LOCATION {TEXT): ' ,$) 

937 FORMAT! /IX, 'ALIGN PAPER TO TOP OF PAGE ' , 

1 'AND HIT CARRIAGE RETURN' ) 


» *' l«JI 

rf QUALITY 


',$) 


\$) 


',$) 


',$) 


MM): 1 

',$) 

MM): ' 

,$) 

MM) : ' 

,$) 

MM): ' 

,$) 


) 


',$) 

',$) 

',$) 


940 FORMA T!//5X, 'DECOMPRESSION DATA OUTPUT', 

1 //IX,' SUBJECT #' ,TL2,11A1,T26, 'DATE' ,732, 

2 3A1,A3,3A1) 

941 FORMAT! /IX, 'NITROGEN PRESSURE AT TIME OF FINAL DECOMPRESSION', 
1 //lOX.'FOR 13J MIN TISSUE : ',F6.2,' PSI', 
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0241 



OF POOR 


2 //10X,'F0R 240 MIN TISSUE : ' ,F6,2,' PSI'. 

3 //10X , ' FOR 360 MIN TISSUE : ',F6.2,' PSI') 

942 FORMA T(/1X, 'DECOMPRESSION RATIO AT TIME OF FINAL DECOMPRESSION' 

1 //10X,' FOR 180 MIN TISSUE : \F6.2, 

2 //10X, ' FOR 240 MIN TISSUE : \FG.2, 

3 //10X, 1 FOR 360 MIN TISSUE : ' ,F6.2) 

0242 981 F0RMAT(11A1,I2,8A1,I2,2F5.2,I2,2(5A1),3(A1)) 

0243 982 FORMA T(4 (5A1) ) 

0244 983 FORMA T(4(F4. 1) ) 

0245 984 FORMA T(A1,15A1) 

0246 985 F0RMAT(3(F5.2) ,3(F4«2) ) 

0247 986 F0RMAT(10F5.2) 

0248 987 FORMA T( 1014) 

0249 800 FORMA T(Q, 11A1) 

0250 801 FORMA T(Q,8A1) 

0251 802 FORMA T(Q,5A1) 

0252 803 FORMAT(Al) 

0253 804 FORMA T(Q,70A1) 

0254 805 FORMA T(Q,30A1) 

0255 806 FORMA T(1X) 

0256 END 
C 

C 
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Local Variables, .PSECT SDATA, Size «* 000612 ( 197. words) 


Name 

Type 

Offset 

Name 

Type 

Offset 

Name 

Type 

Offset 

BBG1RP 

R*4 

000512 

BBG2RP 

P.*4 

000516 

BBG3RP 

R*4 

000522 

BBG4RP 

R*4 

000526 

BNDPRS l*X 

000467 

BNG1RP 

R*4 

000532 

BNG2RP 

R*4 

000536 

BNG3RP 

R*4 

000542 

BNG4RP 

R*4 

000546 

BUB MS 

L*1 

000465 

BUBPRS 

L*1 

000466 

DR180 

R*4 

000566 

D 11240 

R*4 

000572 

DR3bO 

R*4 

000576 

EXERLV L*1 

000464 

FP 

R*4 

000502 

I 

1*2 

000610 

IPN2 

R*4 

000476 

J 

1*2 

000604 

MONTH 

R*4 

000506 

tc 

1*2 

000606 

NF 

1*2 

000602 

NPH 

1*2 

000474 

PPT180 

R*4 

000552 

PPT240 

R*4 

000556 

PPT360 

R*4 

000562 

TEMP 

1*2 

000472 


TESTNO 1*2 000470 


Local and COMMON Arrays: 


Name 

Type 

Section 

Offset 


Dime 

BBG10T 

L*1 

SDATA 

000035 

000005 ( 

3.) 

(5) 

BBG1RT 

L*1 

SDA TA 

000054 

000005 ( 

3.) 

(5) 

BBG20T 

L*1 

SDATA 

000042 

000005 ( 

3.) 

(5) 

BBG2RT 

L*1 

SDATA 

000061 

000005 ( 

3.) 

(5) 

BBG30T 

L*l 

$0ATA 

000047 

000005 ( 

3.) 

(5) 

BBG3RT 

L*1 

SDATA 

00006b 

000005 ( 

3.) 

(5) 

BBG40T 

L*1 

$OA TA 

0001b7 

000005 ( 

3.) 

(5) 

BBG4RT 

L*1 

SDATA 

000073 

000005 ( 

3.) 

(5) 

BNDLC 

L*1 

SDATA 

000150 

000017 ( 

8.) 

(15) 

BNG10T 

L*1 

S0A1A 

000100 

000005 ( 

3.) 

(5) 

BNG1RT 

L*1 

SDATA 

000124 

000005 ( 

3.) 

(5) 

BNG20T 

L*1 

SDATA 

000105 

000005 ( 

3.) 

(5) 

BNG2RT 

L*1 

SDATA 

000131 

000005 ( 

3.) 

(5) 

8NG30T 

L*1 

SDATA 

000112 

000005 ( 

3.) 

(5) 

BNG3RT 

L*1 

SDATA 

000136 

000005 ( 

3.) 

(5) 

8NG40T 

L*1 

SDATA 

000117 

000005 ( 

3.) 

(5) 

BNG4RT 

L*1 

SDATA 

000143 

000005 ( 

3.) 

(5) 

DURPH 

1*2 

SDATA 

000234 

000024 ( 

10.) 

(10) 

FILENM 

L*1 

SDATA 

000174 

000037 ( 

16. ) 

(31) 

IOC ODE 

L*1 

SDATA 

000000 

000013 ( 

6.) 

(11) 

PN2PH 

R*4 

SDATA 

000260 

000050 ( 

20.) 

(10) 

TES1DT 

L*1 

SDATA 

0U0013 

000010 ( 

4.) 

(8) 

TIMFD 

L*1 

SDATA 

000023 

000005 ( 

3.) 

(5) 

TIMR 

L*1 

SDATA 

000030 

000005 ( 

3.) 

(5) 


Subroutines, Functions, Statement and Processor-Defined Functions: 
Name Type Name Type Name Type Name Type Name Type 
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DEC RAT R*4 EXIT R*4 SWAPDT R*4 YORN 1*2 
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0001 


0002 

0003 


0004 

0005 

0006 
0007 
0003 
0010 
0011 
0012 

0013 

0014 

0015 

0016 
0017 

0019 

0020 
0021 

0022 

0023 

0024 

0025 

0026 
0028 

0029 

0030 

0031 

0032 


o if pocm g-mjnr 

SUBROUTINE DEC RAT (IPN2, NPH, PN2, DUR, 

1 FP. PPT180, PPT24U, PPT360, 0R130, QR24Q, DR360) 
C TABLE OF VARIABLES 

C 


c 

VARIABLE 

USE 

c 

DR180 

DECOMPRESSION RATIO AT 180 MIN 

r% 

\) 

DR240 

DECOMPRESSION RATIO AT 240 MIN 

c 

DR360 

DECOMPRESSION RATIO AT 360 MIN 

c 

DUR 

DURATION OF WASHOUT PHASE 

c 

FP 

FINAL PRESSURE 

c 

IPN2 

INITIAL PRESSURE OF N2 

c 

KT180 

VALUE OF EXPONENT IN CALCULATION 

c 

KT240 

VALUE OF EXPONENT IN CALCULATION 

n, 

V, 

KT360 

VALUE OF EXPONENT IN CALCULATION 

c 

NPH 

NUMBER OF PHASES 

c 

PN2 

PRESSURE OF N2 DURING WASHOUT PHASE 

c 

PP 

TEMPORAY FOR NEW INITIAL PRESSURE 

c 

PPT180 

PRESSURE OF N2 AT 180 MIN 

c 

PPT240 

PRESSURE OF N2 AT 240 MIN 

c 

PPT360 

PRESSURE OF N2 AT 360 MIN 


C 

INTEGERS DUR(IO), NPH 
REAL*4 IPN2 PN2(10^ 

1 FP, PPT180, PPT240* PPT360, 0R180, DR240, DR360, 

2 KT180, KT240, KT360, PP 
C 

PP=IPN2 

DO 1100 1=1,10 

1001 KT180=(DUR(I)/180. )*0.693 

PPT180=PP+( (PN2( I)-PP)*(1.-EXP(-KT180)) ) 
IF(I.EQ.NPH) 30 TO 1200 
PP=PPT180 
1100 CONTINUE 
1200 DR180=PP T180/FP 
C 

PP-IPN2 

DO 2100 1=1,10 

2000 KT240=(DUR( I )/240. 5*0.693 

PPT240=PP+( (PN2( I )— PP )*( 1 »— EXP (— KT240) ) 5 
IF(I.EQ.MPH) GO TO 2200 
PP=PPT240 
2100 CONTINUE 
2200 DR240=PPT240/FP 
C 

PP=IPN2 

DO 3100 1=1,10 

3000 KT360=(DUR( 1 5/360. )*0.693 

PPT360=PP+( (PN2(I )-PP)*(l.-EXP(-KT360) ) ) 
IF(I.EQ.NPH) GO TO 32U0 
PP=PPT36u 
3100 CONTINUE 
3200 DR36!‘-°PT360/FP 
C 

RETURN 

END 
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0RIU«^ V - 1 ’ 
OF POU* Q"" ' 1 ' 


; D 


FORTRAN IV Storage Map for Program Unit DEC RAT 

Local Variables, .PSEC T $DA TA, Size * 000100 ( 32. words) 


Name Type Offset 
DR180 R*4 0 000020 
FP R*4 0 000010 
KT180 R*4 000042 

NPH 1*2 0 000002 
PPT240 R*4 0 000014 


Name Type Offset 
DR24U R*4 0 000022 
I 1*2 000062 

KT240 R*4 000046 

PP R*4 000056 

PPT360 R*4 0 000016 


Name Type Offset 
DR360 R*4 0 000024 
IPN2 R*4 0 000000 
KT360 R*4 000052 

PPTI80 R*4 0 000012 


Local and COMMON Arrays: 

Name Type Section Offset Size Dimensions 

DUR 1*2 0 $DA1A 000006 000024 ( 10.) (10) 

PN2 R*4 0 SDATA OOOOOh 000050 ( 20.) (10) 


Subroutines, Functions, Statement and Processor-Defined Functions: 
Name Type Name Type Name Type Name Type Name Type 
EXP R*4 
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0001 

0002 

0003 

0004 

0005 
0005 
0008 
0010 
0012 

0013 

0014 

0015 
0018 


Local 

Name 

K 


ORICVJU IV', ; s 

PuOf? 

INTEGER FUNCTION Y0RN*2(K) 

LOGIC AL*1 X 
801 FORMA T(A1) 

100 READ (S, 801 ,t'ND«200) X 
YORN““G 

IF (X.EQ.1HN.0R.X.EQ.1HN) Y0RN»-1 
IF (X.EQ.1HY.0R.X.EQ.1HY) Y0RN«1 
IF (YORN.EQ.O) GO TO 200 
RETURN 

200 WR I TE ( 7 ,901) 

901 FORMA TC PLEASE ANSWER Y OR N 1 ) 

GO TO 100 
ENO 


Variables, .PSBCT $DATA, 

SI ze 

a 000005 ( 

3. 

wo rds) 


Type Offset 

Name 

Type 

Offset 

Name 

Type 

Offset 

1*2 0 000000 

X 

L*1 

000004 

YORN 

1*2 

000002 Eqv 
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W C*umiY 


0001 

SUBROUTINE SWAPDT(X.MONTH) 



0002 

LOGIC AL*1 X ( B ) 




0003 

REALM MONTH 




0004 

IF(X(1).EQ. 

0’ 

.AN0.X(2).EQ.'l' 

) 

MOiJTH-’J.sN' 

0006 

IF(X(1 ) . EQ. 

O' 

.AN0.X{2).EQ.'2' 

) 

MONTH*' FEB' 

0008 

1F(X(1).EQ. 

O' 

.AND. X(2 ) . EQ. ' 3 ' 

) 

MONTH 3 'MAR' 

0010 

IF(X(1).EQ. 

O' 

.AND.X(2).EQ.'4' 

) 

MONTH 3 'APR' 

0012 

IF(X(1).EQ. 

O' 

,AN0.X(2).EQ.'5' 

) 

MO NTH 3 'MAY' 

0014 

IF(X(1).EQ. 

O' 

.AN0.X(2).EQ.'6' 

) 

MONTH* ' JU N ' 

0016 

IF(X(1 ).EQ. 

O' 

.AND.X(2) ,EQ. '7 ' 

) 

MONTH 3 ' JUL' 

0018 

IF(XU).EQ. 

O' 

,AND.X(2).EQ.'8' 

) 

M0NTH='AUG' 

0020 

IF(X(1}.EQ. 

O' 

.AND. X(2) .EQ. '9 ' 

) 

MONTH 3 'SEP' 

0022 

IF(X(1) . EQ. 


,AND.X(2) .EQ. ' 1' 

) 

MONTH 3 'JAN' 

0024 

IF ( X ( 1 ) . EQ . 


.AND.X(2) . EQ . ' 2 1 

) 

MONTH 3 'FEB' 

0026 

IF(X(1).EQ. 

• 

.AND.X(2). EQ . ' 3 ' 

) 

MONTH='MAR' 

0028 

IF(X(lj.EQ. 


.AND.X(2) . EQ . ' 4 ' 

) 

MONTH* 'APR ' 

0030 

IF t X { 1 ) . EQ. 

I 

. A ND . X ( 2 ) . EQ . ' 5 1 

) 

MONTH 3 'MAY' 

0032 

IF( X(1 ) . EQ. 


.AN0.X(2).EQ.'6' 

) 

MONTH 3 ' JUN' 

0034 

IF(X(1).EQ. 


.AND.X(2) . EQ . ' 7 ' 

) 

HtON TH= ' OU L ' 

0036 

IF(X(1 ) .EQ. 


.AND.X(2).EQ.'8' 

) 

MONTH='AUG' 

0038 

IF(X(1).EQ. 


. A ND . X ( 2 ) . EQ . ' 9 ' 

) 

MONTH* ' S EP ' 

0040 

1F( X ( 1 ) . EQ . 

1' 

,AND.X(2).EQ.'0' 

) 

M0NH1='0C T' 

0042 

IF(X(1 ) .EQ. 

1' 

,AND.X(2).EQ.'l' 

) 

MONTH 3 'NOV' 

0044 

IF ( X ( 1 ) • EQ. 

1' 

.AND* X(2 ) . EQ* ' 2 1 

) 

MONTH 3 'DEC' 

0046 

RETURN 





0047 

END 






Local Variables, .PSECT $DA 1A, Size 3 000004 ( 2. words) 

Name Type Offset Name Type Offset Name Type Offset 

MONTH R*4 0 000002 
Local and COMMON Arrays : 

Name Type Section Offset Size Dimensions 

X L*1 0 $DA TA 000000 000010 ( 4.) (8) 
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6.3 

0001 




OF t-', 




NITROGEN WASHOUT PROGRAM 


PROGRAM N2WASH 

O *************************************************************** ****** 

Q ******************** ******************************************** ***** 

0 * * 

0 * * 

C * TECHNOLOGY INCORPORATED * 

C * LIFE SCIENCES DIVISION * 

0 * * 

Q * * 

0 •fr * 

0 * * 

Q * Yf 

C * PROGRAM NAME: N2WASH * 

C * PROGRAMMERS, VERSION 1.0 A: BARRY LEVITAN ANO * 

C * KEN KOESTER * 

C * PROGRAM MODIFIED, VERSION 1.0 B BARRY LEVITAN * 

C * PROGRAM MODIFIED, VERSION 2.0 PENNY BUEKER * 

C * DATE-.VERSION 1.0 A AUGUST 1980 

C * DA TE: VERSION 1.0 8 AUGUST 1991 

C * DATE VERSION 2.0 DECEMBER 1981 * 

0 * * 

0 * * 

0 * - * 

0 * * 

0 * * 

C * COMPUTER SYSTEM: LSI-11 * 

C * OPERATING SYSTEM:. RT-11V4 * 

0 * * 

0 * * 

C * * 


c 

C 

C 

c 

C 

C 

C 

C 

C 

C 

c 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


* 

* 

* 

* 

* 

* 

* 

* 

*. 


COMPILING SEQUENCE: 

LSI: FORTRAN N2WASH 


* 

* 

* 

* 

* 

* 

* 

* 

m * 


* * 

* LINKING SEQUENCE: * 

* * 

* LSI: LINK N2WASH * 

* * 

* * 

* * 

* * 

* * 

* * 

* FXECUTION SEQUENCE: RUN N2WASH * 

* * 
*****************************************************•>*?*•* J'k'k'k'k'k'kif'kit'k'k'k 
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* * 


ooooo ooo oooooo ooo ooo ooo ooo ooo oooooo ooo ooo ooo ooo oooooooo 


OP POO)? QbAIXn 

****************************************** *************************** 


TABLE OF VARIABLES 


AGE SUBJECT'S AGE 

AMGAS AMBIENT GAS COMPOSITION 

AMPRES AMBIENT PRESSURE (MM HG) 

BODHYD BODY HYDRATION 

BODPOS BODY POSITION 

BRGAT MINIMUM NOISE LEVEL OF SPIROMETER 

BRN2V TOTAL NITROGEN VOLUME EXHALED PER BREATH 

BRTMIX BREATHING MIXTURE 

BRTST MINIMUM VOLUME TO DETERMINE A BREATH 

BRVOL TOTAL BREATH VOLUME 

CALC NT NOT USED 

CALPCT FROM DATCON.VAL CAL GAS CONCENTRATIONS 
CALZER VALUE EQUIVALENT TO CALC NT( 1,2) FOR ADJUSTING 
N2 DRIFT BETWEEN BREATHS 

COMMTS ARRAY TO HOLD OPTIONAL TEXT OF COMMENTS 
COSUM ACCUMULATOR FOR CARBON DIOXIDE END TIDAL 

CONCENTRATION CALCULATION 

COTID AVERAGE CARBON DIOXIDE CONCENTRATION OF BREATH 

DELAY FLOATING CALC ULATION OF MASS SPEC 

TRANSPORT LAG 

DMY DUMMY ARGUMENT FOR IFF I NR SUBROUTINE 

DRUGS CODE FOR DRUGS 

DT ELAPSED TIME FOR CAL GAS VALUE, PLUMBING 

AND FLUSHING 

EL PST EXPERIMENTAL ELAPSED TIME 

EXERCI EXERCISE PROTOCOL 

EXGRAV EXTERNAL GRAVITY 

EXTEMP EXTERNAL TEMPERATURE IN CENTIGRADE 

FLB SPIROMETER CAL CURVE INTERCEPT 

FLM SPIROMETER CAL CURVE SLOPE 

FLOCAL HIGH CALIBRATION VALUE OF SPIROMETER (1 LITER) 
FLOSUM ACC U MU LA TOR FOR SPIROMETER ZERO 

CALIBRATION 

FLOZER LOW CAL VALUE OF SPIROMETER (0 LITERS) 

GASSLP MASS SPEC CAL CURVE SLOPE 

GASSUM ACCUMULATOR FOR CAL GAS SAMPLE READINGS 

GSNTCP MASS SPEC CAL CURVE INTERCEPT 

I GAS TYPE INDEX 

IADBUF ADDRESS OF A/D OUTPUT BUFFER 

IADCGC A/D CHANNEL AND GAIN CODES 

IADCSR ADDRESS OF A/D CONTROL STATUS REGISTER 

IANS OPERATOR RESPONSE CHARAC TER (1-6) 

IB TH BREATH NUMBER I.D. 

ICHECK FUG TO SET NEW VOLUME FOR BREATH OVER 
DETERMINATION 

ICLCNT PROGRAM CLOCK PRE-SET COUNT BUFFER 

ICLRAT INTERRUPT RATH OF SAMPLE PROGRAM (TIMES SPER SECOND) 
ICON NUMBER OF CONCENTRATION! SAMPLES MADE 

ID PARAMETER OF RT-11 SUBROUTINE INTSET 
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IDAT 
IOC CUE 
IDEM 
IDMY 

IDRIFT 
IL1RVIM 
IDRVOT 
IF IL 
IMIN 
IMMERS 
INAM 
I NO 

INT 

INTSET 
IPHS 
IS TP 

IVAL 

IVLVMD 

IYS 

J 

KC 

KCMMTS 

LATCH 

LOTH 

LWAT 


M 

NTSIJM 

N2TIU 

N2T0T 

N2VLM 

OTSUM 

02TID 

PC ICO 

PCTN2 

PCT02 

RDMY 

SPCOiJD 

STRUM 

T 

TEST 

TICK 

TINT 

TCCK 

TSOI 

VALUE 

VOLUME 


ALPHA-NUMERIC ARRAY FOR OATH TAG 
SUBJECT IDENTIFICATION # 
mSS SPEC TRANSPORT LAG 1.1 SEC LAG + F 
INTEGER ZERO END OF DATA TAG 
(SAMPLE RATE) 

VALUE OF NITROGEN IN INSPIRED OXYGEN 
PARALLEL BOARD INPUT REGISTER ADDRESS 
PARALLEL BOARD OUTPUT REGISTER ADDRESS 
ALPHA-NUMERIC ARRAY FOR DATA FILE NAMING 
EXPERIMENT MINUTE COUNT 
IMMERSION? (Y/N) 

ALPHA-NUMERIC ARRAY FOR NAME TAG 
OPERATOR RESPONSE NO (FOR INSTRUCTIONS N, 

CARRIAGE RETURN) 

INTGER RESULT OF A/D CONVERSION OR 
PARALLEL BOARD READING 
PROCESSOR DEFINED SUBROUTINE 
PHASE NUMBER ENTERED BY OPERATOR 
STOP RESPONSE ENTERED BY OPERATOR (S, 

CARRIAGE RETURN) 

OPERATOR INPUT OF DATA CONSTANTS (INTEGERS) 

BIT STRUC TORE TO CONTROL GAS VALUES 
OPERATOR RESPONSE YES (Y, CARRIAGE RETURN) 

CAL GAS SOURCE INDEX 

NUMBER OF CHARAC itRS IN COMMENT LINE 

COMMENTS? (Y/N) 

LOGICAL FLAG FOR NITROGEN RANGE SWITCHING 

LOGICAL LA TCH FOR BREATH DATA GATHERING DONE 

LOGICAL LATCH OF DATA ANALYSIS DONE 

F -> DATA DONE 

T -> ANALYSIS IN PROGRESS 

DO LOOP DUMMY COUNTER 

ACCUMULATOR FOR NITROGEN END TIDAL 

CONCENTRATION CALCULATION 

AVERAGE NITROGEN CON) ENTRATION OF BREATH 

TOTAL VOLUME OF NITROGEN ELIMINATED 

MINUTE ACCUMULATOR VOLUME OF NITROGEN ELIMINATED 

ACCUMULATOR FOR OXYGEN END TIDAL 

COIC ENTRATION CALCULATION 

AVERAGE OXYGEN CONCENTRATION OF BREATH 

CONCENTRATION READING OF CARBON DIOXIDE 

CONCENTRATION READING OF NITROGEN 

CONCENTRATION READING OF OXYGEN 

FLOATING POINT ZERO END OF DATA TAG 

OTHER SPECIAL CONDITIONS 

STARTING TIME OF DAY 

TIME FOR DELAY OF CAL GAS PLUMBING, 

VALVING, PURGING 

CHANGE IN BREATH VOLUME TO DETERMINE END OF BREATH 
EXPERIMENTAL TEST 1-MINUTE COUNTER 
TIME INTERVAL (DT) INTEGRATOR (VOL=DV/D T) 
EXPERIMENTAL TEST START TIME (FOR ELAPSED TIME) 

CPU MONITOR TIME 

OPERATOR INPUT OF DATA CONSTANTS (FLOATING POINT) 
BREATH VOLUME = BKVOL 


c 

c 

c 

c 

c 

c 

c 

c 

c 

0002 

0003 


0004 

0005 


0006 

0007 

0008 
0009 


0010 

0011 

0012 

0013 

0014 

C 

0015 

C 

C 

0016 

0017 

0018 

0019 

0020 

C 

C 

0021 

0022 

0023 

C 

C 

0024 

0025 

0026 


0028 

0029 

0030 

0031 


ORIQ'.W^ 
OF POOR 


ry \ ' , 

Vf •- ' 


H 


V0L1 SAMPLE 1 OF VOLUME TO COMPARE TO 5TH SAMPLE 

TO DETERMINE IF BREATH IS COMPLETE 
V0L2 SAMPLE 2 OF VOLUME TO COMPARE TO 5TH SAMPLE 

TO DETERMINE IF BREATH IS COMPLETE 


TYPE 

IMPLICIT LOGIC AL(L) ,REAL(N) 

LOGIC AL*1 IANS, IYS, INO, ISTP, IXODE(ll) , IDA T(8) , 

1 IMMERS, STRTIM(5) , KCMMTS, C0MMTS(4,80) , 

2 INAM(30), IF IL( 3 1 ) 

REAL*4 EX TEMP, AMPRES 

INTEGERS AMGAS, UODHYD , BODPOS, BRTMIX, 

1 DRUGS, EXEITC I , EXGRAV, SPCOND, KC , AGE 

SIZE 

DIMENSION CALC NT(3 ,4) ,CALPC T(3,3) 

DIMENSION GASSUM(3) ,GASSLP(4) ,GSNTCP(4) 

DIMENSION IVLVt4D{3) - IADC GC ( 4 ) 

DIMENSION PC TN2(300) ,PC 1C0(300) ,PC TO2(300) 

COMMON 

C Ol'iMON/FLOC OM/ FLOZER, FLM , FLB , IFLO ,BRTST 
COMMON/AX ON/IADC SR, IADBUF , IAX GC .VOLUME, V0L1 , VOLZ 
C OMMON/GA S/ GA SSLP , GS NX P , LB TO , BRGA T, TES T 
C OMMO N/P A RP R S/ IC 0 N , PC ICO, PC TN2,PC TO2.CALZER 
C0MM0N/DRV11/IDRVIN, IDRVOT, IDLM.LWAT, IDRIFT 

EXTERNAL SAMPLE 

DATA 

DATA IDRVOT/ "167772/, IDRVIN/ M 167774/ 

DATA IVLVMD/"030,"420,"220/ 

DATA IYS/1HY/ , IN0/1HN/ .ISTP/1HS/ 

DA TA IADC SR/ "176770/ , IADBUF/ "1 76772/ 

DA TA IADC GC/ "0431 ,"1031 ,"1431 ,"2021/ 

READ DATA CONSTANTS 

OPEN (UNI T=2 .TYPE 3 1 OLD 1 ,NAME= 1 SY :DA X ON. VAL 1 .READONLY ) 
READ (2,*) ( (CALPC T( 1,0) ,J=1 ,3) , 1=1 ,3) ,ICLRA T, 

* BRGA T 

CLOSE (UNIT=2,DISP0SE= , SAVE' ) 

TYPE HEADER 

TYPE 10 

ACCEPT 11, IANS 

IF( IANS. EQ. INO) GO TO 91 

GET PHASE & BRANCH 

90 CONTINUE 
TYPE 12 
GU TO 92 

91 TYPE 15 
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0032 

0033 
0035 


0036 

0037 


0038 

0039 

0040 

0041 

0042 

0044 

0045 

0046 

0047 


0048 

0049 

0050 

0052 

0053 

0054 

0055 

0056 

0057 

0058 
0060 
0061 
0062 
0063 


0064 

0065 


0066 


0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 


Of ifGJM. p. ■/- P ;■ 

of poor quality 

92 R EAD (5,13) IPHS 

93 IP( IPHS.LT. 1.0R. IPHS. GT. 6 )G0 TO 91 

94 60 TO (100,200,300,400,500,600) IPHS 
C 

C 

C PHASE 1-DA 1A CONSTANTS 

C 

100 CONTINUE 
TYPE 14 

C CAL-GAS %'S 

DO 110 0*1 ,3 
DO 110 1*1,3 
TYPE 16,I,J,CALPC T(I,J) 

ACCEPT 11, IANS 
If ( IANS. NE. IYS) GO TO 110 
TYPE 18 

ACCEPT 19, VALUE 
CALPC T( I ,J)*VALUE 
110 CONTINUE 
C 

C CLOCK RATE 

TYPE 161 , ICLRA T 
ACCEPT 11, IANS 
IF( IANS. NE. IYS) GO TO 115 
TYPE 18 

ACCEPT 191 , IVAL 
ICLRAT=IVAL 
115 CONTINUE 
C BREATH GATE 

TYPE 162.BRGAT 
ACCEPT 11, IANS 
IF( IANS. NE. IYS) GO TO 120 
TYPC 18 

ACCEPT 19, VALUE 
BRGAMALUE 
120 CONTINUE 

END OF PHASE 1— GET NEW PHASE 
TYPE 20, IPHS 
GO TO 92 


PHASE 2— HEADER INFO 

200 CONTINUE 

INITIALIZE HEADER VARIABLES 
DO 201 M=1 ,8 

201 IDA T(M)= 1 ' 

DO 202 M=1 ,30 

202 INAM( H)= ' ' 

DO 203 M=1 ,11 

203 IDCODE( M)= 1 ' 

EX TEMP =0 .0 
EXGRAV=0 
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0075 


IMMERS-* ' 

0076 


BOD POSO 

0077 


AMPR£S=0.0 

0078 


DRU GS=0 

0079 


EXERC I~Q 

0080 


BRTMIX=0 

0081 


80DHYD=0 

0082 


AMGASO 

0083 


AGE=Q 

0084 


DO 204 M*1 .5 
204 STRTIM( M) = ' ' 

0085 


0086 


SPC0N0=0 

0087 


KCMMTS=' 1 

0088 


DO 216 0=1,4 

0089 


DO 216 1=1,80 

0090 

c 

216 CUI#ITS(0 , 1)= ' ' 


u 

C 

ENTER THE EXPERIMENTAL CONDITIONS 

0091 


TYPE 22 

0092 


ACCEPT 23, ( IDA T(M) ,M=1 ,8) 

0093 


TYPE 24 

0094 


ACCEPT 25, IC ,( INAM( M) ,M=1,IC) 

0095 


TYPE 26 

0096 


ACCEPT 27,( IDCODE(M) ,M=1 ,11) 

0097 


TYPE 28 

0098 


ACCEPT 29, AGE 

0099 


TYPE 900 

0100 


ACCEPT 800, EX TEMP 

0101 


TYPE 9ul 

0102 


ACCEPT 801, EXGRAV 

0103 


TYPE 902 

0104 


ACCEPT 802, IMMERS 

0105 


TYPE 903 

0106 


ACCEPT 803, BODPOS 

0107 


TYPE 904 

0108 


ACCEPT 800, AMPRES 

0109 


TYPE 905 

0110 


ACCEPT 803, DRUGS 

0111 


TYPE 906 

0112 


ACCEPT 803, EXERCI 

0113 


TYPE 907 

0114 


ACCEPT 803, BRTMIX 

0115 


TYPE 908 

0116 


ACCEPT 803, BOD H YD 

0117 


TYPE 909 

0118 


ACCEPT 803, AMGAS 

0119 


TYPE 910 

0120 


ACCEPT 810, (STRTIM(M) ,M=1,5) 

? 121 


TYPE 911 

0122 


ACCEPT 803, SPCOND 

0123 


TYPE 912 

0124 


ACCEPT 802, KCMMTS 

0125 


IF (KCMMTS. EQ. ' N' ) GO TO 225 

0127 


TYPE 913 

0128 


ACCEPT 813 
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0129 

0130 

0131 

0132 


0133 

0134 


0135 

0136 

0137 

0138 

0139 

0140 

0141 

0142 

0143 

0145 

0146 

0147 

0148 

0149 

0150 

0151 

0152 

0153 

0154 

0156 

0157 

0158 

0159 

0160 
0161 
0162 

0164 

0165 

0166 

0167 

0168 

0169 

0170 
0171 


0F POOR 


DO 220 0*1,4 
TYPE 31 

READ (5,814) KC , (C0MMTS(J , I) , 1*1, KC) 
220 CONTINUE 

C END OF PHASE 2-GET NEW PHASE 

225 TYPE 20.IPHS 
GO TO 92 


C PHASF 3— MASS SPECTROMETER CALIBRATION 

300 CONTINUE 

CALL IPOKE(IDRVO T, IVLVMD ( 2 ) ) 

TYPE 30 

C 

PAUSE 'SELECT N-2 0-10%. RETURN' 

J=2 

C OPEN VALVE J-WAIT 15 SECONDS 

305 CALL IPOKE( IDRVO T, IVLVMD ( J ) ) 

T=$ECNDS(0.0) 

308 DT=SECNDS(T) 

IF(D T. LT. 15.0) GO TO 308 
C 

DO 315.1=1,3 
GASSUMI I )=0.0 

C 

DO 310, M=1 ,100 

CALL IPOKE( IADC SR, IADC GC ( I ) ) 

INT=IPEEK( IADBUF) 

310 GASSUM( I )=GASSUM( I )+FLOAT( INT) 

C 

CALCNT(I,J)=GASSUM( I)/100. 

315 CONTINUE 
d=J+l 

IF(U.EQ.3) GO TO 305 
CALCNT(1 ,4)=CALC NT(1 ,3) 

C 

PAUSE 'SELECT N-2 0-100%. RETURN' 

0=1 

: OPEN VALVE J— WAIT 15 SECONDS 

325 CALL IPOKE ( IDRVO T, IVLVMD ( J ) ) 

T=SECNDS(0.0) 

323 DT=SECNDS( T) 

IF(DT. LT. 15.) GO TO 328 

GA$SUM(1 )=0.0 

DO 330 M=1 ,100 

CALL IPOKE ( IADC SR, IADC QC ( 1 ) ) 

I N T=I PEEK ( IAD3UF) 

330 GASSUM( 1 )=GASSUM( 1 )+FLOA T(INT) 

CALCNTtl ,0)=GASSUM(1)/100. 

J=J+2 

IF(0 . EQ.3) GO TO 325 


GET SLOPES & INTERCEPTS 
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) 

f 0173 

0174 

0175 

0176 

0177 

0178 

0179 

0180 

0181 

0182 

0183 

0184 

0185 

0186 

0187 

0188 
0189 


0190 

0191 

0192 


0193 

0194 

0195 

0196 

0197 

0198 

0199 

0200 
0201 

0202 

0203 

0204 

0205 

0206 


0207 

0208 


OF PCXjW 


GrtSSLP(l)*(CALPC T(1»1)-CALPC T(l,3)) 

* /(CALC NT(1,1)~CALCNT( 1,3)) 
GSNfCP{l) s CALPCTd,3MGASSLPd)*CALCNT(l,3)) 

C 

GASSLP(2)=(CALPC T(2,2)-CALPC T(2,3) ) 

* /(CALC NT(2,2)~C ALC NT( 2,3) ) 

GS N TC P ( 2 ) **C AL PC T(2,3)-(GASSLP(2)*CALC NT(2 ,3) ) 

C 

GASSLP(3)*(CALPC T(3,3)-CALPC T(3 ,2) ) 

* /(CALC NT(3,3)-CALCNT(3,2) ) 

GSNTCP(3)“CALPC T(3,2)-(GASSLP(3)*CALCNT(3,2) ) 

C 

GASSLP(4)=(CALPC T(1,3)-CALPC T(l,2) ) 

* /(CALCNT(1 ,4)-C ALCNT(1,2)) 

GSNTCP(4)*CALPC T(1 ,2)-(GASSLP(4)*CALC NT(1 ,2)) 

C 

TYPE 321 

TYPE 32 , CALC NT( 1, 1 ), CALC NT( 1,3) ,GASSLP(1) ,GSNTCP(1) 
TYPE 322 

TYPE 32,CALCNT(1,4) , CALC NT( 1,2) ,GASSLP(4) ,GSNTCP(4) 
TYPE 323 

TYPE 32,CALCNT(2,2),CALCNT(2,3),GASSLP(2) 5 G$NTCP(2) 
TYPE 324 

TYPE 32 .CALC NT(3,3) ,C,ALCNT(3,2) , GASSLP (3 ) ,GSNTCP(3) 
CALZER=C ALCNT(1 ,2) 

C 

C END OF PHASE 3 

CALL IP0KE(IDRV0T,"O) 

TYPE 20.IPHS 
GO TO 92 
C 
C 

C PHASE 4— SPIROMETER CALIBRATION 

400 CONTINUE 
TYPE 40 
C 

PAUSE' ZERO SPIROMETER. RETURN THANK YOU' 

C SAMPLE "ZERO FLOW" 

FL0SUM=0.0 

DO 415, M=l, 1000 

CALL IPOKE ( IAX SR, IADC GC (4) ) 

INT=IPEEK( IADBUF) 

415 FLOSUM=FLOSUM+FLOAT( INT) 

FLOZER=FL0SUM/1000. 

C SIMULATE 1 LITER VOLUME 
FLUC AL=FL0ZER+410. 5 

C GET FLOW SLOPES & INTERCEPTS 

FLM=1 .0/ ( FLX AL-FLOZER) 

FLB=-FLOZER 
TYPE 421 

TYPE 32 , FLK AL , FLOZER, FLM , FLB 
C 

C END OF PHASE 4 

TYPE 20.IPHS 
GO TO 92 


1 



1 


\ 

i 

I 
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C 

C 

PHASE 5- TEST DATA 

0209 


499 PAUSE 'INSERT DATA FLOPPY WITH AT LEAST 400 FREE BLOCKS, RETURN 

0210 


500 CONTINUE 


G 

c 

OPEN DISK FILE & WRITE HEADER 

0211 


501 WRITE(7,920) 

0212 


READ ( 5 ,820, EN0*501 ) Ml, ( IFIL(M) ,M*1 ,MC) 

0213 


IF (Ml.LE.O) GO TO 501 

0215 


IFIL(MC+i)»0 

0216 


0PEN(UNIT*2 , TYPE 3 ' NEW* , NAME- IF I L, FORM* 'FORMATTED' ,ERR*499, 
1 INITIALSIZE-400) 

0217 


WRITE (2,914) (INAM(I), 1=1, 30), (IDA T(I), 1-1,8), 

1 (IDCODE(I) ,1=1,11) , AGE, 

2 EX TEMP , EXGRAV , IMMERS, BOD POS.AMPRES, DRUGS , 

3 EXERCI,BRTMIX,B0DHYD,AMGAS,(STRTIM(M),M-1,5),SPC0ND,KCMMTS 

0218 


DO 502 1=1,4 

0219 


WRI TE(2 ,91 5) (COMMTS( I , J ) ,J=1 ,80 ) 

0220 


502 CONTINUE 

0221 


TYPE 505 

0222 


ACCEPT 11, IANS 

U223 

r* 

IF( IANS. EQ. IS TP) GO TO 560 


G 

C 

nnrnn nr tiiTrnnijnr mMiftur 1 riuunj rl 

ruumhc, iriithnuri isuu ! Inc onnri-c. 

0225 


CALL INTSET( "104,4, ID, SAMPLE) 

0226 


IC LC N T=1 0000/ IC LRA T 

0227 

c 

CALL IPOKE( "172542, ICLC NT) 


C 

INITIALIZE SOME TERMS 

0228 


IC0N=0 

0229 


IFL0=0 

0230 


IB TH=0 

0231 


N2VLM-0.0 

0232 


BRTST-FLOZER+BRGAT 

0233 


VOLUME-O.O 

0234 


VOLl-BRTST 

0235 


V0L2-0.0 

0236 


ICHECK*0 

0237 


IDRIFT-20 

0238 


LWAT=. FALSE. 

0239 


LA TCH=. TRUE. 

0240 


N2 TOT-O.O 

0241 


IMIN-1 


G 

C 

SET TIME AND DELAY TERMS DUE TO CATHETER LAG 

0242 


TINT=1.0/FL0AT( ICLRAT) 

0243 


DELAY=FLOAT( ICLRA T)*.36 

0244 

r 

IDLM= IF IX (D ELAY ) 

0245 


TS8>SECNDS(0.0) 

0246 


TOCK=TSEC 


c 


C START SAMPLE ROUTINE 

CALL IP0K£("172540,"0113) 


0247 


0243 

0249 

0250 

0252 

0253 


0255 

0257 

0258 

0259 

0260 

0261 


0263 

0264 


0265 

0266 

0267 

0268 

0269 

0270 

0271 

0272 

0273 

0274 

0275 

0276 

0277 

0278 

0279 

0280 

0281 

0282 

0283 

0284 

0285 

0286 

0287 

0288 
0289 




START TO MONITOR SAMPLE ROUTINE 

510 CONTINUE 

INT*IPEEK("167774) 

IF{ INT. EQ. "177777) LA TCH-. FALSE. 
IANS=*I TTINR(DMY) 


IF{ IANS. EQ. IS TP) GO TO 560 


CHECK NEED TO PURGE 

IF( (V0L1.LE.BRTST) .OR.(ABS( TEST) .GT. .5) ) GOTO 520 

DO 515, J»l, 3000 

CALL IP0KE( "176760, "2050) 


515 CONTINUE 

CALL IPOKE( "176760, "00.10) 
CHECK FOR DATA READY 
520 IF ( .NOT. LWAT) GO TO 530 


BREATH DATA IS READY FOR PROCESSING 
I8TH=IB TH+1 
ELPST=SECNDS( TSEC) 


DO 540, J*2, ICON 

NTSUM=NTSUM+PC TN2(J ) 
0TSUM=0TSUM+PC ?02(J ) 
COSUM=COSUM+PC ICO(J) 

540 CONTINUE 

M2 T ID 3 N TSU M/ IC 0 N 
02 T ID =0 TSU M/ IC 0 N 
C0TID=C0SUM/IC0N 
BRV0L=V0LUME 
B RN2 V =B RVO L*N2 T 10 
N2VLM=N2VLM+B RN2V 
M2T0T=N2T0f+B RN2V 


542 CONTINUE 

WRITE (2,916) IB TH,ELPS T,BRV0L,BRN2V,02TID ,N2TID ,C 0 TID 
TY PE 55 , IB TH , ELPS T, B RVO L , B RN2 V , N2 T II) 

55 FORMA T( 5X , 14 , F10. 1 ,3F 10.5) 

C RESET COUNTERS & INTEGRATORS 

IC0N=0 
IFL0=0 
ICHECK=0 
V0L2=0.0 
BRV0L=0.0 
BRN2V=0.0 
NTSUM=0.0 
0TSUM=0.0 
C0SUM=0.0 
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0290 

0291 


0292 

0293 

0295 

0296 

0297 

0298 

0299 
0301 


0302 

0303 

0304 

0305 

0306 

0307 

0308 

0309 

0310 


0311 

0312 


0313 

0314 


0315 

0316 


0317 

0318 


ORIGINS, py* 1; B 

IDR IF T-20 OF POOR QUA! ITV 

LWAT=. FALSE, V ' r 

C 

C CHECK FOR 1-MIN OPERATIONS 

530 TICK°SBCNOS( TOCK) 

IF ( TICK. LE. 60. ) GO TO 510 
C 

TQCK-TUCK+60. 

TYPE 550,IMIN,N2VlM,N2T0T 

IMIN-IMIN+1 

N2VLM=0.0 

IF((N2TID.LT.0.070).AND. (LATCH)) TYPE 545 
GO TO 510 
C 

C ENO OF PHASE 5 

560 CONTINUE 

CALL IPOKE( "1 72540 , "000 ) 

CALL IPOKE(IDRVOV'OOO) 

IDMY=0 

RDMY a O,Q 

WRITE (2,916) IDMY , RDMY . RDMY , RDMY , RDMY , RDMY , RDMY 
CL0SE(UNIT=2 ,DISP= SAVE' ) 

TYPE 20.IPHS 
GO TO 92 
C 
C 

C PHASE 6— TERMINATION 

600 CONTINUE 
STOP 'BYE' 

C 

C 

C 

C 

9 F0RMAT(9F7.2,I5,F5.0,F7.2) 

C 

10 FORMA T(/,17X,'N 2 W A S H 0 U T',//1X, 

* 'INSTRUCTIONS (Y/M) ? ' ,$) 

C 

11 FORMA T(A1) 

C 

12 FORMA T(X,//,X,' TESTLOAD N2WASH HAS 6 PHASES', 

* // ,5X , ' 1 DATA CONSTANTS— ALLOWS USER', 

* /,' MODIFICATION OF CAL-GAS %"S. OTHERWISE', 

* /,' PROGRAM USES DEFAULT VALUES.' , 

* //,5X,'2 INITIALIZATION-ENTER HEADER INFORMATION', 

* // ,5X, ' 3 CALIBRATE MASS SPECTROMETER', 

* //,5X,'4 CALIBRATE SPIROMETER' , 

* //,5X,'5 TEST DATA— SAMPLES TEST DA TA CONTINUOUSLY' , 

* /,' UNTIL USER TERMINATES' , 

* //,5X,'6 TERMINATE— RETURNS CONTROL TO SYSTEM MONITOR', 

* ///,10X,' ENTER PHASE # & RETURN ' ,$) 

C 

13 FORMA T( II) 

C 

14 FORMA T(X,//,10X,' PHASE 1 DATA CONSTANTS', 


114 


yttf : . ' v: u 

OF F OGK V . 


* /,5X,' TO LEAVE VALUE UNCHANGED, ENTER'. 

* /,5X,' fJ & RETURN. TO CHANGE, ENTER Y r , 

* / , 5X „ ' & RETURN, GET "NEW VALUE" PROMPT,' , 

* /,5X,' ENTER NEW VALUE & RETURN',/) 

C 

0319 15 FORMA T(5X,' ENTER PHASE #', $) 

0320 16 FORMA T(5X,'C ALPS TC ,11,' , ,11, )* ,F6,2,$) 

C 

0321 161 FORMA T(5X,' SAMPLE RATE*' ,14, '/SEC' ,$) 

C 

0322 162 FORMA T(5X,' BREATH GATE*' ,F5.Q,$) 

C 

0323 18 FORMA T(3X,' NEW VALUE *',$) 

C 

0324 19 FORMA T(F6.2) 

C 

0325 191 FORMA T( 14) 

C 

0326 20 FORMA T(X,/,5X,' END OF PHASE ',13, /IX, 

* 'ENTER NEW PHASE # ' ,$) 

C 

0327 22 FORMA T(X,//,10X,' PHASE 2 INITIALIZATION',//, 

* 2X,'DATE (MM-DD-YY): ' ,$) 

C 

0328 23 FORMA T(8A1) 

C 

0329 24 FORMA T(/2X,' SUBJECT NAME : ' ,$) 

C 

0330 25 FORMA T(Q,30A1) 

0331 26 FORMA T(/2X,' SUBJECT IDENTIFICATION# (XXX-XX-XXXX) : ',$) 

0332 27 FORMA T(11A1) 

0333 28 FORMA T( /2X,' SUBJECT AGE (YEARS AS OF THIS DATE); ',$) 

0334 29 FORMA T( 12) 

C 

0335 30 FORMA T(X,//,10X, 'PHASE o MASS SPEC CALIBRATION', 

* /,5X, 'VERIFY CAL GASES ARE OPEN', 

* /,5X,'SET MASS SPEC FUNCTION TO "AUTO"') 

0336 *1 FORMA T(1X,'?' ,$) 

C 

0337 32 FORMA T(5X,'C TS-1' ,6X,'C TS-2' ,SX,' SLOPE', 

* 7X,' INTCPT' ,/ ,2(3X,F8.2) ,2X,2(3X,F9.3) ) 

C 

0338 321 FORMA T(/,10X,' NITROGEN, H I- RANGE ' ) 

0339 322 FORMATS, 1UX, 'NITROGEN, LO-RANGE' ) 

0340 323 FORMA Tt/, 10X,' OXYGEN') 

0341 324 FORMA T(/,10X, 'CARBON DIOXIDE') 

C 

0342 40 FORMA T(X,//,10X,' PHASE 4 SPIROMETER CALIBRATION' ) 

C 

0343 421 FORMA T(/,10X,' SPIROMETER' ) 

C 

0344 505 FORMA T(5X,' SELECT N-2 0-100% RANGE. ' , 

* / ,5X , ' RETURN TO START.' , 

* / ,5X , ' TO STOP AT ANY TIME, ENTER S & RETURN. ',$) 

C 
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034 b 

0340 

034/ 

034M 

0349 

03b0 

0301 

0303 

0303 

0304 
0300 
0300 


030/ 

0300 

0309 

0300 

0301 
0303 

0303 

0304 

0300 

0300 

030/ 

03o0 

0309 

03/0 

03/1 

03/3 

03/3 


040 FORMAT! OX, 'SELECT N-2 0-10* RANGE' 




Uf * M-VH Ql’iWJiY 


000 FORMA T( 3 X , 1 3 , 2X , 1 il I N N3 ( E ) 1 , F8 . 0 , 3X , ' N3 TO V ,2X . FO . 0 ) 

900 FORMA T( /3 X , ' EX TbKAL TEMPERA TURE IN CENTIGRADE (XX. X): ' ,$) 

901 FORMA T(/3X,' EXTERNAL GRAVITY (1,0): ' ,$) 

903 FORMA T(/2X,' IS SUlklfcCT IMMERSED (Y/N): ' ,$) 

903 FORMA T(/3X,' ENTER CODE FOR BODY POSITION (0 FOR NO DATA 

* 'OK 1-99) * ' $) 

904 FORMA T(/3x', 'AMBIENT PRESSURE IN MM HO (XXX. X): ',$) 

900 FORMA T(/3X,' ENTER CODE FOR DRUGS (0 FOR NO DATA f , 

* 'OR 1-99): ' ,$) 

900 FORMA T(/‘3X,' ENTER CODE FOR EXERCISE PROTOCOL (0 FUR NO DATA ' , 

* 'UR 1-99): ' ,$) 

90/ FORMA T(/3X,' ENTER CODE FOR BREATHING MIXTURE (0 FOR NO DATA ', 

* 'OR 1-99): ' $) 

90 G FORMA T(/3X | 'ENTER CODE FOR BODY HYDRATION (0 FOR NO DATA ', 

* 'OR 1*99): ' ,$) 

909 FORMA T(/2X,‘ ENTER CODE FOR AMBIENT GAS COMPOSITION (0 FOR NO 

* 'DATA UR 1-99): ' ,$) 

910 FORMA T(/2X,' STARTIN'- TIME OF DAY (HH:MM): * ,$) 

911 FORMA T(/2X,' ENTER CODE FOR OTHER SPEC IAE CONDITIONS (0 FOR ', 

* 'NO DATA OR 1-99): ' ,$) 

913 FORMA T( /2X,'ARE THERE ANY COMMENTS TO RECORD (Y/N ) ? ' ,$) 

913 FORMA T(/2X,‘ TO ENTER COMMENTS HIT CARRIAGE RETURN THEN ', 

* 'ENTER UP TO 4 LINES OF COMMENT ' ,$) 

91 1 FORMA T( 30A1 »8A1 , UA1 , 13 ,F7 . ? , T\ ,A1 , 13 ,F7 . ? , B( 12 ) ,6Al , 13 ,A1 ) 

910 FORMA T( BOA 1) 

91o FORMA T{ 14, F10.1 ,0(F10.0) ) 

930 FORMA T(10X , ' FILENAME ON WHICH TO STORE UA lA ', 

1 /1UX ' DEVICE: FILENAME, TYPE “ ',$) 

BOO FORMA T(F7.3) 

B01 FORMA T( II) 

BO 3 FORMA 1(A1) 

BOB FORMA T( 13) 

810 FORMA TlbAL) 

B14 FORMA T(Q, BOA 1) 

B13 FOkMATUX) 

B30 FORMA T(Q,30A1) 

ENl) 


J ' : - 


Local ' 

/arlables, .PSBC T $DA TA, 

Si ze 

* 001326 ( 363. words) 


Name 

Type 

Offset 

Name 

Type 

Offset 

Name 

Type 

Offset 

AGE 

1*2 

001106 

AMGAS 

1*2 

001064 

AMPRES 

R*4 

001060 

BODHYD 

1*2 

001066 

BODPOS 

1*2 

001070 

BRN2V 

R*4 

001270 

BR1MIX 

1*2 

001072 

BRVOL 

R*4 

001264 

COSUM 

R*4 

001244 

COTID 

R*4 

001260 

DELAY 

R*4 

001210 

DMY 

R*4 

001224 

DRUGS 

1*2 

001074 

DT 

R*4 

001136 

ELPST 

R*4 

001230 

EXERCI 

1*2 

001076 

EXGRAV 

1*2 

001100 

EX TEMP 

R*4 

001054 

FLOCAL 

R*4 

001150 

FLOSUM 

R*4 

001144 

I 

1*2 

001110 

IANS 

L*1 

001050 

IB TH 

1*2 

001162 

IC 

1*2 

001130 

ICHECK 

1*2 

001170 

ICLCNT 

1*2 

OOllbU 

ICLRAT 

1*2 

001114 

ID 

1*2 

001156 

IDMY 

1*2 

001300 

IMIN 

1*2 

001202 

IMMERS 

L*1 

001051 

I NO 

L*1 

000775 

INT 

1*2 

001142 

IPHS 

1*2 

001116 

IS TP 

L*1 

000776 

IVAL 

1*2 

001124 

IYS 

L*1 

000774 

J 

1*2 

001112 

KC 

1*2 

001104 

KCMMTS 

L*1 

001052 

lat:h 

L*4 

001172 

M 

1*2 

001126 

MC 

1*2 

001154 

NTSUM 

R*4 

001234 

N2TID 

R*4 

001250 

N2T0T 

R*4 

00117b 

N2VLM 

R*4 

001164 

OTSUM 

R*4 

001240 

02TID 

R*4 

001254 

RDMY 

R*4 

001302 

SPC OND 

1*2 

001102 

T 

R*4 

001132 

TICK 

R*4 

001274 

TINT 

R*4 

001204 

TOCK 

R*4 

001220 

TSEC 

R*4 

001214 

VALUE 

R*4 

001120 

COMMON 

Block /FLXOM/, 

Size = 000022 

( 9. 

wo rds) 



Name 

Type 

Offset 

Name 

Type 

Offset 

Name 

Type 

Offset 

FLOZEft 

R*4 

000000 

FLM 

R*4 

000004 

FLB 

R*4 

000010 

IFLO 

1*2 

000014 

BRTST 

R*4 

000016 




COMMON 

Block /ADC ON /, 

Size = 000030 ( 12. 

words) 



Name 

Type 

Offset 

Name 

Type 

Offset 

Name 

Type 

Offset 
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i 1 \K •' '' • 

iJU:- » „ 

OF Furr y: Lv.fr/ 


IADCSR 

1*2 

OOOOOO 

IADBUF 

1*2 

000002 IADCQC 

1*2 

000004 

VOLUME R*4 

000014 

V0L1 

R*4 

000020 V0L2 

R*4 

000024 

COMMON 81 ock /GAS /, 

Size = 

000054 ( 22. words) 



Name 

Type 

Offset 

Name 

Type 

Offset Name 

Type 

Offset 

GASSLP 

R*4 

OOOOOO 

GS NIC P 

R*4 

000020 LB TH 

L*4 

000040 

BRGAT 

R*4 

000044 

TEST 

R*4 

000050 



COMMON Block /PARPRS/, 

Size = 

007026 ( 1803. words) 



Name 

Type 

Offset 

Name 

Type 

Offset Name 

Type 

Offset 

ICON 

1*2 

OOOOOO 

PC ICO 

R*4 

000002 PC TN2 

R*4 

002262 

PCT02 

R*4 

004542 

CALZER R*4 

007022 



COMMON Block /DRV11 /, 

Size » 

000014 

( 6. words) 



Name 

Type 

Offset 

Name 

Type 

Offset Name 

Type 

Offset 

IDRVIN 

1*2 

OOOOOO 

IDRVOT 

1*2 

000002 IDLM 

1*2 

000004 

LWAT 

L*4 

000006 

IDRIF T 

1*2 

000012 
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U :■ * ■ - 

OF PGii.2 


i£J 


\UT» Y 


Local arid COMMON Arrays: 


Name 

Type 

Section 

Offset 

Size 

Dimensi 

CALC NT 

R*4 Vec 

$0A TA 

000626 

000060 ( 

24.) 

(3,4) 

CALPCT 

R*4 Vec 

$OA 1A 

000706 

000044 ( 

18.) 

(3,3) 

COMMTS 

L*1 

$DATA 

000030 

000500 ( 

160.) 

(4,80) 

GASSLP 

R*4 

GAS 

000000 

000020 ( 

8.) (4) 

GASSUM 

R*4 

$DATA 

000752 

000014 ( 

6.) 

(3) 

GSN1CP 

R*4 

GAS 

000020 

000020 ( 

8.) 

(4) 

IAXGC 

1*2 

AXON 

000004 

000010 ( 

4.) 

(4) 

IDAT 

L*1 

$DA TA 

000013 

000010 ( 

4.) 

(8) 

IXODE 

L*1 

$DA TA 

000000 

000013 ( 

6.) 

(11) 

IF IL 

L*1 

$DATA 

000566 

000037 ( 

16.) 

(31) 

IMAM 

L*1 

$DA 1A 

000530 

000036 ( 

15.) 

(30) 

IVLVMD 

1*2 

$DATA 

000766 

000006 ( 

3.) 

(3) 

PCTCO 

R*4 

PARPRS 

000002 

002260 ( 

600.) 

(300) 

PCTN2 

R*4 

PARPRS 

002262 

002260 ( 

600.) 

(300) 

PCT02 

R*4 

PARPRS 

004542 

002260 ( 

600.) 

(300) 

STRTIM 

L*1 

$DA1A 

000023 

000005 ( 

3.) 

(5) 


Subroutines, Functions, Statement and Processor-Defined Functions: 


Name 

Type 

Name 

Type 

Name 

Type 

Name 

Type 

Name Type 

ABS 

R*4 

FLOAT 

R*4 

IF IX 

1*2 

INTSET 

1*2 

IPEEK 1*2 

I POKE 

1*2 

ITTINR 

1*2 

SAMPLE 

R*4 

SENDS 

R*4 
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0001 


SUBROUTINE SAMPLE 


° F Pq, 


v;*.' o 




0002 


0003 

0004 


0005 

0006 

0007 

0008 

0009 

0010 
0012 

0013 

0014 

0015 

0016 
0017 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 


c 

c 


0019 


0021 

0022 

0024 

0026 

0027 

0028 


0029 

0030 

0031 


0032 

0033 


C 

C 

C 


C 

C 


C 

C 


TABLE OF VARIABLES 


IBAR ACCUMULATOR FOR NITROGEN DRIFT IN INSPIRED AIR 

IBARRY AVERAGE COUNT FOR NITROGEN IN INSPIRED AIR 

ICHECK FLAG TO SET NEW VOLUME FOR BREATH OVER DETERMINATION 

IDLY MASS SPEC TRANSPORT LAG COUNTER 

IFLLT BIT CONFIGURATION FOR BREATH INDICATOR LAMPS 

K DO LUOP DUMMY COUNTER 

KFLOW ACCUMULATOR FOR VOLUME BREATH END DETERMINATION 

NRNG INDEX FOR NITROGEN HI/LO SCALE USE 

TYPE 

IMPLICIT LOGIC AL(L) 

SIZE 

DIMENSION PC TC 0 ( 3 00 ) ,PC TN2(300) ,PC T02(300)- 
DIMENSION IADC GC ( 4 ) ,GASSLP(4) ,GSN1CP(4) 

COMMON 

C OMMON/FLUC OM/ FLOZ ER , FLM , FLB , IF LO , D R TS T 
COMMON/ADC ON/ IADC SR, IADBUF, IADC GC .VOLUME, V0L1.V0L2 
C OMMO N/GA S/ GA SSL P , GS N TC P , LB TH , B RGA T, TES T 
COMMON/PARPRS/IC ON,PC TC 0 , PC TN2,PC T02 ,CALZER 
C0MM0N/DRV11/IDRVIN, IDRVOT, IDLM,LWAT, IDRIF T 
SAMPLE N2 DRIFT BETWEEN BREATHS 
IF(LBTH) GO TO 45 
I8AR=0 
DO 44,0=1,5 

CALL IPOKE( IADC SR, IADC QC(1)) 

44 IBAR=IBAR+IPEEK( IADBUF) 

IBARRY* IBAR/ 5 

IF( IDRIF T. GT. IBARRY ) IDRIF T= IBARRY 

45 IF(LWAT)GOTO 500 


CHECK N-2 RANGE SWITCH 
INT=»IPEEK{ "167774) 

IF( INT. EQ. "177777) GO TO 60 
IF(INT. EQ. "177677) GO TO 50 
TYPE 55 

56 FORMAT! 5X,' READ ERROR' ) 

GO TO 500 

RANGE ■ 0-100* 

50 IFLLT=''100 
NRNG=1 
GO TO 70 

RANGE » 0-1 OX 
60 IFLLT="040 
NRNG=4 
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0034 

0035 


0036 

0037 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0049 

0050 

0052 

0053 

0054 

0055 

0056 

0057 

0058 


0059 


0061 

0062 

0063 

0064 

0065 

0066 
0067 


0068 

0069 

0070 

0071 

0072 

0073 


0074 

0075 

0076 

0077 

0078 


C 


r il < 


Ulb irVi* ■ ■ 


i 

i 

*? 


GO TO 70 
70 CONTINUE 

SET 'BREATH OVER' TEST EVERY 5th SAMPLE 
ICHECK=ICHECK+1 
IF( ICHECK.LT. 10)G0T0 75 
V0L2=V0L1 
ICHECK=0 
75 KFL0W=0 
DO 80,K=1,15 

CALL I POKE ( IADC SR, IADC GC ( 4 ) ) 

80 KFLOW=KFLOW+IPEEK( IADBUF) 

V0L1 3 FL0A T( KFLOW) /1 5. 0 
CHECK FOR BREATH 
TEST 3 V0L1-V0L2 

IF( ( V0L1.GE.BRTST) .AND.( TEST. GT. .5) ) GO TO 100 

CALL I POKE ( IDRVO T, "0 ) 

IF(LBTH) GO TO 110 
GO TO 500 

100 CONTINUE 

CALL IPOKE( IDRVO T, IFLLT) 

LBTH=. TRUE. 

IFL0=IFL0+1 

VOLUME 3 ! V0L1+FLB )*FLM 

110 IDLY=IDLY+1 

CHECK DELAY 

IF ( IDLY. LT. IDLM) GO TO 500 

GET GAS CONCENTRATIONS 
IC0N=IC0N+1 
INT=0 

DO 11.1 J=1 ,5 

CALL I POKE! IADC SR, IADC GC ( 1 ) ) 

111 I NT 3 1 PEEK! IADBUF )+ IN T 
INT=INT/5 

PC TN2( ICON)=(GASSLP(NRNG)*( INT+(CALZER-IDRIF T) ) 

* +GSN1CP(NRNG) )/100. 

INT=0 

DO 112 J=1 ,5 

CALL I POKE! IADC SR, IADCGC (2) ) 

112 INT=IPEEK( IADBUF)+INT 
INT=INT/5 

PC T02( IC0N) = (GASSLP(2)*INT 

* +GSNTCP(2))/100.0 

INT=0 

DO 113 J=1 ,5 

CALL I POKE! IADC SR, IADCGC (3)) 

113 INT=IPEEK( IADBUF)+ INT 
I M T= I N T/ 5 
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0079 


0080 

0082 

0083 

0084 


0085 

0086 
0087 


ORJGJIV.Ajf, f' r v»F ? ri 

PCTCQ(ICQNMGASSLP(3)*INT OF Pqu» X \ , ' 

* +GSNTC P ( 3 ) ) /100. s ** ' ‘V 

CHECK END OP DELAY 

IF( IC0N.LT. IFLOIGO TO 500 
LOTH*. FALSE. 

LWAT a . TRUE. 

IDLY b O 


500 CONTINUE 
RETURN 
ENO 


ORF-r" rfl r r ' ' 

Ji || '£ J 1 ' a ' " ■ ■> u •* 


Local Variables, . PSE3C T $DATA, 

Size « 

s 000024 ( 10. words) 


Name 

Type 

Offset 

Name 

Type 

Offset Name 

Type 

Offset 

IBAR 

1*2 

OOOOOO 

IBARRY 

1*2 

000004 ICHECK 

1*2 

000014 

IDLY 

1*2 

000022 

IFLLT 

1*2 

000010 I NT 

1*2 

000006 

J 

1*2 

000002 

K 

1*2 

000020 KFLOW 

1*2 

000016 

NRNG 

1*2 

000012 


t 




COMMON 

Block /FLOCOM/ , 

Size = 

000022 

( 9. words) 



Name 

Type 

Offset 

Name 

Type 

Offset Name 

Type 

Offset 

FLOZER 

R*4 

OOOOOO 

FLM 

R*4 

000004 FLB 

R*4 

000010 

IFLO 

1*2 

000014 

BRTST 

R*4 

000016 



COMMON 

Block /ADCON /, 

Size = 

000030 

( 12. words) 



Name 

Type 

Offset 

Name 

Type 

Offset Name 

Type 

Offset 

IADCSR 

1*2 

OOOOOO 

IADBUF 

1*2 

000002 IADCGC 

.1*2 

000004 

VOLUME 

R*4 

000014 

VO LI 

R*4 

000020 V0L2 

R*4 

000024 

COMMON 

Block /GAS /, 

Size = 

000054 

( 22. words) 



Name 

Type 

Offset 

Name 

Type 

Offset Name 

Type 

Offset 

GASSLP 

R*4 

OOOOOO 

GSNTCP 

R*4 

000020 LB TU 

L*4 

000040 

BRGAT 

R*4 

000044 

TEST 

R*4 

000050 



COMMON 

Block /PARPRS/, 

Size = 

007026 

( 1803. words) 



Name 

Type 

Offset 

Name 

Type 

Offset Name 

Type 

Offset 

ICON 

1*2 

OOOOOO 

PC ICO 

R*4 

000002 PC TN2 

R*4 

002262 

PC T02 

R*4 

004542 

CALZER 

R*4 

007022 



COMMON 

Block /DRV11 /, 

Size = 

000014 

( 6. words) 



Name 

Type 

Offset 

Name 

Type 

Offset Name 

Type 

Offset 

IDRVIN 

1*2 

OOOOOO 

IDRVOT 

' 1*2 

000002 IDLM 

1*2 

000004 

LWAT 

L*4 

000006 

IDRIFT 1*2 

000012 
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Local and COMMON Arrays: 


fc* ii%ti *■ 


Of piJvi* 


R 

4 La 


il » '/ 


Name Type 
6ASSLP R*4 
GSNXP R*4 
IAOCOC 1*2 
PC ICO R*4 
PC TN2 R*4 
PC T02 R*4 


Section Offset 
GAS OOOOOO 

GAS 000020 

AXON 000004 
PARPRS 000002 
PARPRS 002262 
PARPRS 004542 


— si ze Dimensions 

000020 ( 8.) (4) 

000020 ( 8.) (4) 

000010 ( 4.) (4) 

002260 ( 600.) (300) 

002260 ( 600.) (300) 
002260 ( 600.) (300) 


Subroutines, Functions, Statenent and Processor-Defined Functions: 


Name 

Type 

Name 

Type 

Name 

Type Name Type Name Type 

FLOAT 

R*4 

IPEEK 

1*2 

IPOKE 

1*2 
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5.4 NITROGEN DATA PROGRAM 


0001 


PROGRAM N2DATA 

C X*************************************** k* kicit'k-kit-k'k-k kb******** kiclc***** 


c 

r * 
W 
r* 
o 

c 

c 

c 

c 


ititifif'k'kif-k'kit'k-kjt-k'k'k-k'k-k-k'kic-k'k'k'k'k'k'k-k'kic-k'k'kjt'kiK'kit'kif’ki'-kic-k'k-k'fr'k'k'kit'kk ************* 


* * 

* * 

* TECHNOLOGY INCORPORATED * 

* LIFE SCIENCES DIVISION * 

* * 

* * 


C * * 

Q **************************** rf***************************************** 

c * * 


c * 

C * PROGRAM NAME: N2DATA 

C * PROGRAMMERS, VFRSION 1.0 A: .....BARRY LEVITAN AND 

C * KEN KO ESTER 

C * PROGRAM MODIFIED, VERSION 1.0 B BARRY LEVITAN 

C * PROGRAM MODIFIED, VERSION 2.0 .PENNY BUEKER 

C * DA INVERSION 1.0 A AUGUST 1980 

C * DA TE: VERSION 1.0 B AUGUST 1981 

C * DATE: VERSION 2.0 DECEMBER 1981 

C * 

C * 


C * 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

•k 

,* 


c * 
c * 

C * COMPUTER SYSTEM: LSI-11 

C * OPERATING SYSTEM: RT-llv4 

C * 

C * 


* 

* 

* 

■k 

k 

k 


C * * 

Q * ^ 

C * COMPILING SEQUENCE: * 

Q * 

C * LSI: FORTRAN N2DATA * 

C * * 

C * * 

C * * 

C * * 


C * 
C * 

c * 
c * 
c * 
c * 
c * 
c * 
c * 
c * 

r * 


LINKING SEQUENCE: 

LSI: LINK N2DATA 


,* 

* 

* 

* 

* 

* 

* 

* 

* 

,* 

* 


C * EXECUTION SEQUENCE: RUN N2DATA * 

C * * 
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oo oooooo ooo ooo oooooo oooooo ooo ooo ooo oooooo ooo ooo o o o ooo oO 


(‘. 4! 

"T 




N2DATA PROGRAM WRITES A REPORT (FULL, 1 MINUTE, 5 MINUTE OR SHORT) 
ON THE NITROGEN WASHOUT EXPERIMENT 


VARIABLE 

USE 

AGE 

SUBJECT'S AGE 

AMGAS 

CODE FOR AMBIENT GAS MIXTURE 

AMPRES 

AMBIENT PRESSURE IN MM HG 

ANSWER 

TEMPORARY FOR VALUE OF IMMERS 

BMR 

METABOLIC RATE 

BODHYD 

CODE FOR BODY HYDRATION 

BODPOS 

CODE FOR BODY POSITION 

BRAVG 

AVERAGE BREATH VOLUME 

BRN2V 

AVERAGE BREATH NITROGEN VOLUME 

BRSM 

INTERVAL SUM OF BREATH VOLUMES 

BRSUM 

SUM OF BREATH VOLUMES 

BRTMIX 

CODE FOR BREATHING MIXTURE 

BRVOL 

BREATH VOLUME 

BTH 

RUNNING TOTAL NUMBER OF BREATHS 

COTDAV 

AVERAGE C02 COfC ENTRA TION 

COTDSM 

SUM OF C02 COCENTRA TIONS 


COTID 

COTSM 

COUNT 

COVOL 

C02 

CUMTIM 

DRUGS 

ELPST 

EXERCI 

EXGRAV 

EX TEMP 

I 

IANS 

IB TH 

IMMERS 

IMIN 

IYS 

J 

KCM 

KCMMTS 

M 

MONTH 

N2 

N2AVG 

N2AVT 

N2C0MT 

N2CUM 

N2SM 

N2SUM 

N2TID 

N2TSM 

N2V0L 


C02 CONC ENTRATION OF BREATH 

SUM OF C02 CON: ENTRATION OF INTERVAL 

BREATH COUNTER 

INTERVAL VOLUME OF C02 IN LITERS 
INTERVAL VOLUME OF C02 IN ml 
ELAPSED TIME BEYOND INTERVAL 
CODE FOR DRUGS 
ELAPSED TIME 

CODE FOR EXERCISE PROTOCOL 
EXTERNAL GRAVITY (1 OR 0) 

EXTERNAL TEMPERATURE DEGREES CENTIGRADE 

INDEX COUNTER 

OPERATOR SUPPLIED ANSWER 

BREATH NUMBER 

IMMERSION (YES/ NO) 

ELAPSED MINUTES 
YES 

INDEX COUNTER 

TEMPORARY FOR VALUE OF KCMMTS 
COMMENTS (YES/NO) 

INDEX COUNTER 
MONTH 

INTERVAL VOLUME OF N2 IN ML 
AVERAGE N2 VOLUME 

INTERVAL AVERAGE OF N2 CONCENTRATION 

ESTIMATED N2 CONTENT OF BODY 

CUMMULATIVE N2 ELIMINATED 

INTERVAL VOLUME OF N2 IN LITERS 

SUM OF N2 VOLUME 

112 COfC ENTRATION OF BREATH 

SUM OF N2 COM: ENTRA TIONS OF INTERVAL 

INTERVAL VOLUME OF M2 IN LITERS 
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C 

N2VWT 

ELIMINATED N2 ml/ kg BODY WEIGHT 

c 

c 

NTDAVG 

AVERAGE OF AVERAGE N2 CONCENTRATION 
PER BREATH 

c 

c 

NTDSM 

SUM OF AVERAGE N2 CONCENTRATION 
PER BREATH 

c 

02 

INTERVAL VOLUME OF 02 IN ml 

c 

02TID 

02 CONCENTRATION OF BREATH 

c 

02TSM 

SUM OF 02 CONCENTRATIONS OF INTERVAL 

c 

02V0L 

INTERVAL VOLUME OF 02 IN LITERS 

c 

0TDAV6 

AVERAGE 02 CONCENTRATION 

c 

OTDSM 

SUM OF 02 CONCENTRATIONS 

c 

PCTN2 

% OF ESTIMATED N2 CONTENT ELIMINATED 

c 

PULN2 

PULMONARY N2 

c 

SPC OND 

CODE FOR OTHER SPECIAL CONDITIONS 

c 

TIMCNT 

tLAPSED TIME IN INTERVAL 

c 

r 

WEIGHT 

SUBJECT'S BODY WEIGHT IN kg 

c 

ARRAY 

USE 

c 

COMMTS 

OPTIONAL SECTION FOR COMMENTS 

c 

IDAT 

DATE 

c 

IDCODE 

SUBJECT IDENTIFICATION NUMBER 

c 

IF IL 

FILE NAME 

c 

I NAM 

NAME OF SUBJECT 

c 

STRTIM 

STARTING TIME OF DAY 


C 


C 

0002 IMPLICIT REAL(N) 

0003 LOGIC AL*1 IANS, IYS,C0MMTS(4,80) , IMMERS, KC MMTS, 

1 STRTIM(5) , IDA T(8) ,I0C0DE(11) , 

2 INAM{30) , IF IL( 31 ) 

0004 INTEGER*2 AMGAS.BODHYD ,BODPOS,BRTMIX, DRUGS, EXERCI, 

1 EXGRAV , SPC OND ,AGE , B TH , IM I N 

0005 REAL*4 ANSWER, KCM, MONTH, BRSM,BRVOL,COAVT,COTDAV,COTDSM, 

1 C0TSM,C0V0L,CUMTIM,N2AVT, N2C0NT* N2CUM,N2SM,N2TSM, 

2 N2VOL,N2VWT,02AVT,02TSM,02V0L,0TDAVG,0TDSM,PC TN2 , 

3 TIMCNT, WEIGH T,C0SM,02SM,BMR,PULN2 
C 

0006 DATA IYS/1HY/ 

C 

0007 5 WRI TE(7 ,910) 

0008 READ (5,810) MC,( IFIL(M) ,M=1 ,MC) 

0009 IF IL( MC+1 ) 3 0 
C 

0010 0PEN(UNIT 3 2,TYPE 3 '0LD' ,NAME=IFIL,FORM 3 ' FORMATTED ' ) 

C 

0011 READ (2 ,814) (INAM( I) ,1=1,30) ,( IDA T(I) ,1=1,8) , 

1 (IDCODE(J) ,J 3 1,11) ,AGE, 

2 EX TEMP , EXGRAV , I Ml lERS , BOD POS , AMP R ES ,D RU GS , 

3 EXERC I , B R TMIX , BODHYD ,AMO\ S , S TR TIM , SPC OND , KC MMTS 

0012 IF( IMMERS. EQ.'N') ANSWER 3 ' NO' 

0014 IF( IMMERS. EQ. 1 Y ' ) ANSWER 3 'YES' 

0016 IF( IMMERS. EQ. ' ') ANSWER 3 ' NO' 

0018 IF(KCMMTS.EQ.'N' ) KCM 3 ' NO' 

0020 IF ( KC MMTS. EQ. ' Y ' ) KCM= 'YES' 

0022 IF ( KC MMTS. EQ. * ') KCM 3 ' NO' 
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0024 

0025 

0026 

0027 

0028 

0030 


0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0043 

0044 

0045 


0046 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0058 

0059 

0060 
0061 
0062 

0063 

0064 

0065 


0066 

0068 

0069 


DO 10 1*1,4 

10 READ(2,815) (CQMMTS(I,J),J«1,80) 

11 WRI TE(7 ,939) 

READ (5, 877) IANS 

IF (. NOT. (( IANS. EQ.'F* ).0R.( IANS.EQ.'l* ).0R.( IANS. EQ. 'S' ) 
1 .OR. ( IANS. EQ, * S' ) ) ) GO TO 11 
PAUSE ' ADVANCE CARRIAGE IF DESIRED. RETURN* 

C 

C N2DATA REPORT 

C WRITE HEADER INFORMATION 

WRITE! 7 ,920) 

CALL SWAPD T( IDA T, MONTH) 

WR I TE ( 7 , 92 1 ) ( I NAM! I ) , 1-1 , 30 ) ,AGE , IDA T{4 ) , IDA T( 5 ) , 

1 IDA T(3) ,MONTH, IDA T(6) , IDA T(7) ,IDA T(8) 

WRITE! 7 ,922) ( IDCODE( J ) ,J«1 ,11) ,( STRTIM! J ) ,J»1 ,5) 

WRITE! 7, 923) EXTEMP, EXGRAV 
WRI TE(7,924)ANSWER,BGDP0S 
WRITE(7,925)AMPRES, DRUGS 
WRITE(7,926)EXERCI,BRTMIX 
WRITE(7,927)B0DHYD,AMS\S 
WRITE(7 ,928)SPC0ND ,KCM 
IF(KCMMTS.EQ.'N') GO TO 100 
WRITE! 7, 929) 

DO 20 1=1,4 

20 WRI TE(7 ,930) (COMMTS! I , J) , 0=1 ,80 ) 

C 

C BREATH BY BREATH PARAMETERS FOR FULL REPORT 
C 

100 IF( IANS.NE* *F* )G0 TO 200 
WRITE! 7, 93d) • 

C INITIALIZE VARIABLES 

BRSUMO.Q 
N2SUM=0.Q 
NTDSM=0.0 
0TDSM=0.0 
C0TDSM=0.0 

C READ A RECORD AND WRITE A RECORD 

DO 150, J-l, 10000 

READ (2, 816) IB TH , ELPS T, B RVO L , B RN2V , 02 TID , N2 TID ,C 0 TID 

IF! IB TH. EQ.O) GO TO 500 

BTH=IBTH 

WRITE(7 ,935)IB TH, ELPS T,BRV0L,BRN2V,02TID,N2TID ,COTID 
C SUM THE PARAMETERS 

BRSUM=BRSUM+BRVOL 
N2SUM=N2SUM+B RN2V 
NTUSM=MTDSM+N2TI0 
0TDSM=0TDSM+02TID 
COTDSM=COTDSM+COTID 
150 CONTINUE 
C 

C 1 MINUTE INTERVAL PARAMETERS FOR 1 MINUTE INTERVAL REPORT 
C 

200 IF (IANS.NE.'l') GO TO 300 
WRI Tt£( 7 ,941 ) 

READ (5,*) WEIGHT 
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0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 

0080 
0081 
0082 

0083 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

0095 

0096 

0098 

0099 

0100 

0101 

0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 
0111 

0112 

0113 

0114 

0115 

0116 


WRI TE(7 ,942) 
READ(5,*)N2C0NT 
WRI TE(7 ,944) 

READ ( 5 ,* ) PULN2 
WRITE(7,94Q) 

C INITIALIZE VARIABLES 
IMIN 3 0 
COUNTS 
N2CUM=0,0 
CUMTIM=0.0 
B RSM=0 . 0 
N2SM=0.0 
02SM-0.0 
C0SM n 0.0 
N2 TSM=0 . 0 
02TSI4-0.0 
C 0 TSM=Q . 0 
BRSUM=0.0 
N2SUi<1=0.Q 
NTOSM=0.0 
OTDSM=Q.Q 
C0TDSM=0.0 • 

C READ A 1 MINUTE INTERVAL 


ORIGIN, , • » 
OF POOR 


DO 220,0=1.10000 

210 READ (2 ,816 )I8TH,ELPS T,BRV0L,BRN2V,02TID,N2TID,C0TID 
IF ( IB TH. EQ.O) GO TO 215 

TMCNT=£LPST-CUMTIM 

IF ( TMCNT.GT. 601 GO TO 213 

211 B TH= IB TH 

C SUM THE BREATH AND N2 VOLUMES IN LITERS 
BRSM=BRSM+BRVOL 
N2SM=N2SM+BRN2V 

C COMPUTE THE 02 AND C02 VOLUME IN LITERS 
02V0L=02TID*BRV0L 
COVOL=COTID*BRVOL 

C SUM THE 02 AND C02 VOLUME 
02SM»02SM+02V0L 
C0SM=C0SM4C0V0L 

C SUM THE 02, C02 AND N2 CON: ENTRATIONS 
02 TSM=02 TSM+02 T ID 
C 0 TSM=C 0 TSM+C 0 TID 
N2TSM=N2TSM+N2TID 
C0UNT=C0UNT+1 
GO TO 210 


213 IMIN=IMIN+1 

CUMTIM=CUMTIM+60 

C CHANGE THE VOLUMES TO ml 
N2=N2SM*10Q0 
02=02SM*1QQ0 
C02=G 0SI4*100Q 

C COMPUTE THE 1 MINUTE AVERAGE N2 CONCENTRATION 
N2AV T=N2 TSM/C OUN T 

C COMPUTE THE 1 MINUTE N2 ml /kg BODY WEIGHT 
N2VWT=N2/WEIGH T 

C COMPUTE THE CUMMULATIVE N2 ELIMINATED 
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0117 

0118 

0119 

0120 
0121 
0122 

0123 

0124 

0125 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 
013b 
0137 


0138 

0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

0148 

0149 

0150 

0151 

0152 

0153 

0154 

0155 
U156 

0157 

0158 

0159 

0160 
0161 
0162 

0163 



OF -4 J i| * '< 


N2CUM=N2CUM+N2 

COMPUTE THE % OF ESTIMATED 80DY N2 CONTENT ELIMINATED 
PC TN2*( ( (N2CUI1/10Q0)-PULN2)/N2C0NT)*100 
COMPUTE THE METALLIC RATH 
BMR=€0SM*1362.4 

TRANSFER THE SUMS TO SUMMARY VARIABLES 

215 B RSUM=B RSUM+B RSM 
N2SUM=N2SUM+N2SH 
0 U)SM b O TDSM+02 TSM 
NTDSM-NTDSM+N2TSM 
COTDSM^COTDSM+COTSM 
IF( IB TH. EQ.O)GO TO 500 
WRITE THE 1 MINUTE INTERVAL AVERAGES 
WRITE(7 ,943)IMIN,N2,02 ,C02,N2VWT> N2AVT, N2CUM,PC TN2.BMR 
INITIALIZE VARIABLES 
COUNTO 
B RSM=0 . 0 
N2SM=0.0 
N2TSM=0.0 
02T5M a 0.0 
C0TSM=0.0 
C0SM=0.0 
02SM=0 .0 
GO TO 211 

220 CONTINUE 

5 MINUTE INTERVAL PARAMETERS FOR 5 MINUTE INTERVAL REPORT 

300 IF ( IANS.NE. '5' ) GO TO 400 
WR I TE ( 7 ,941) 

READ (5,*) WEIGHT 
WRI TE( 7 ,942 ) 

RFAD(5,*)N2C0NT 

WRITE(7,944) 

READ(5,*)PULN2 
WRI TE(7 ,940) 

INITIALIZE VARIABLES 

IMIN-0 

COUNTS 

N2CUM=0.0 

CUMTIM=0.0 

BRSM=0.0 

N2SM a 0.0 

C0SM=0 .0 

02SM=0.0 

N2TSM=0.0 

02TSM=0.0 

COTSM=0.0 

BRSUM=0.0 

N2SUM=0 .0 

NTDSM=0 .0 

0TDSM=0 .0 

C01DSM=0 .0 

READ A 5 MINUTE INTERVAL AND SUM THE PARAMETERS 
DO 320,J=1, 10000 
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0164 

0166 

0167 

0160 

0170 

0171 

0172 

0173 

0174 

0176 

0176 

0177 

0178 

0179 

0180 
0181 
0182 

0183 

0184 
0186 
0186 

0187 

0188 

0189 

0190 

0191 

0192 

0193 

0194 
0196 

0196 

0197 

0199 

0200 
0201 
0202 

0203 

0204 

0205 

0206 

0207 

0208 


OR'®'*. ^ ^ 

OF PQ0E3 QUALIFY 


310 READ (2 ,816)IBTH.,ELP$T f BRVQL,BRN2V,02TID,N2TID »CQTID 
IF ( 18 TH. EQ.O) GO Q 315 

1MUN T^ELPS T-C UM TiH 

IF( BIG NT, GT. 300) GO TO 313 

311 UTHoIUTH 

SUM THE BREATH AND N2 VOLUMES IN LITERS 

BRSM a BRSM+URYOL 

N2SM a N2SM+B RN2V 

COMPUTE THE 02 AND C02 VOLUME IN LITERS 

G2V0L a 02TID*BRVGL 

COVQL«COTID*liRVOL 

SUM THE 02 AND C02 VOLUME 

02SM=02SM+QHV0L 

COSM=COSM+C OVOL 

SUM THE 02, 002 AND N2 C0N3 ENTRA TIONS 
02 TSM a 02 TSM+02 TID 
C 0 TSM=C 0 TSM+C 0 TID 
N2 TSM a N2 TSM+N2 T ID 
COUNKOUNT+l 
GO TO 310 
313 IMIN a IMIN+5 

CUMTIM=CUMTIM+300 
CHANGE THE VOLUMES TO ml 
N2 a N2SM*1000 
02“02St1*1000 
C02=C0SM*1000 

COMPUTE THE 5 MINUTE AVERAGE N2 CONCENTRATION 
N2a V T-N2 TSM/C OU N T 

COMPUTE THE 5 MINUTE N2 ml /kg BODY WEIGHT 
N2VWT=N2/ WEIGHT 

COMPUTE THE CUMMULATIVE N2 ELIMINATED 
N2CUM a N2CUM+N2 

COMPUTE THE •* OF ESTIMATED BODY N2 CONTENT ELIMINATED 
PC TN2=( ( (N2CUM/10QQ)-PULN2)/N2C0NT)*10Q 
COMPUTE THE METABOLIC RATE 
8MR 3 ( C OSM/ 5 ) *1 362 . 4 
TRANSFER THE SUMS TO SUMMARY VARIABLES 
315 BRSUKpBRSUM+ 3 RSi-1 
N2SUM=N2SUM+N2SM 
0 TUSM a O TDSM+02 TSM 
NTDSM=N1USM+N2TSM 
C 0 TDSi i=C 0 TDSM+C 0 TSM 
IF( 18 TH. EQ.O)GO TO 500 
WRITE THE S MINUTE INTERVAL AVERAGES 
WRITE(7,943)IMIN,N2,02,C02,N2VWT, N2AVT,N2CUM,PC TN2,BMR 
INITIALIZE VARIABLES 
COUNT a O 
B RSM c O . 0 
N2SM=0.0 
N2TSM-0.0 
02 TSM=0 . 0 
C 0 TSM=0 . 0 
C0SM a 0.0 
Q2SM-0 . 0 
GO TO 311 
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0209 320 CONTINUE 

C 

C SHORT REPORT 

C 

0210 400 IPUANS.NL. 'S') GO TO 11 

C INITIALIZE VARIABLES 

0212 8RSUM n 0.0 

0213 N2SUM a 0.0 

0214 NTUSM-Q.O 

0215 OTDSM-O.O 

0216 C0TDSM a 0.0 

C READ RECORDS AND SUM PARAMETERS 

0217 DO 440, UU, 10000 

0210 R EAD ( 2 , 81 6 ) I B TH , ELPS T, 0 RVO L , B RN2 V , 02 T ID , N2 TID ,C 0 TID 

0219 IK(IBTH.EQ.O) GO TO 500 

0221 QTH-IBTH 

0222 0 RSU M a 0 RSU M+B RVO L 

0223 N2SUM a N2SUM+B RN2V 

0224 0 TUSM a O TDSM+02 T ID 

0225 NTDSM°NTUSM+N2TID 

0226 CQTDSM^COTOSMKOTID 

0227 440 CONTINUE 

C CHECK POR END OP DATA 

0220 500 Ir( ELPS T. EQ.O.O) GO TO 600 

0230 WRITE(7 ,956) 

0231 GO TO 670 

C COMPUTE AVEARAGES FOR SUMMARY 

0232 600 BRAVG=BRSUM/BTH 

0233 N2AVG a N2SUM/BTH 

0234 QTUAV6°0TUSM/UTH 

0236 NTDAVG a NTD$M/BTH 

0236 COTUAV^COTDSM/BTH 

0237 WRI TU7 ,961 ) 

0238 WRI TE(7 ,9b2) 

0239 WRI TE(7 ,%3)BRAVG, N2AVG.0TUAVG, NTDAVG,COTDAV 

0240 WRI TE( 7 ,964)N2SUM 

0241 WRITE(7 ,9b5)BTH 
C 

0242 670 CLQSE(UNIT a 2 ,DISP B 'SAVE' ) 

C 

0242 IANS a ' ' 

0244 700 WRI TE(7 ,972) 

C CHECK TO SEE IF THEY WANT TO READ ANOTHER FILE 

0245 ACCEPT 877 , IANS 

0246 IF ( IANS. EQ. IYS) 60 TO 5 

0248 910 FORMA T(//10X»' NITROGEN WASHOUT DATA ANALYSIS' , 

1 / ,SX, ' ENTER FILENAME ON WHICH DATA IS STORED ', 

2 /5X,' (DEVIC EjFILENAME. TYPE) : ' ,$) 

0249 920 FORMA T(/25X,' N2DATA REPORT'/) 

0250 921 FORMA T(/2X,30Al,T4l,' AGE: ' ,I2,T52,'DATE: ' ,2X,3A1,A3,3A1 ) 

0261 922 FORMA TI/2X,' SUBJECT ID NUMBER: ' ,T24,11A1,T41, 'STARTING ', 

1 'TIME: * 4 X SA 1 ) 

0252 923 FORMA T(/2X!' EXTERNAL TEMPERATURE: ', T28,F7. 2, T41 ,' EXTERNAL ', 

1 'GRAVITY: ' ,To8,ll) 

0253 924 FORMA T(/2X,' IMMERSION? ' ,132, A3, T41,' BODY POSITION CODE: ', 
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1 167,12) 

0254 925 FORMA T(/2X, 'AMBIENT PRESSURE: ' ,T28, F7. 2, T41 DRUG CODE: 

1 T67.I2) 

0255 926 FORMA T(/2X,‘ EXERCISE CODE: ',T33, 12, T41 , 1 B REA TH MIXTURE CODE: 

1 T67, 12) 

0256 927 FORMA T(/2X,'B0DY HYDRATION CODE: ' ,133,12,141, 'AMBIENT GAS CODE: 

1 T67.I2) 

0257 928 FORMA T(/2X, 'SPECIAL CONDITION CODE: ' ,133, 12, T41, 'COMMENTS? 

1 T66.A3) 

0258 929 FORMAT! /2X, 'COMMENTS: ') 

0259 930 FORMA T(2X,80A1) 

0260 935 FORMA T(5X, 14, F10 . 1 , 5 ( F10. 5 ) ) 

0261 938 FORMA T(/2X, ' BREATH # ' ,2X * ' ELAPSED ' ,2X, 'BREATH ', 

1 2X,'N2 VOL ',2X,'02C0KC ',2X,'N2C0IC ', 

2 2X,'C02 con:' , 

3 /l 3X , ' TIME ' ,2X,' VOLUME' ,2X, '/BREATH ',2X, 

4 '/BREATH ',2X, '/BREATH ' ,2X,' /BREATH ', 

5 /13X, ' (SEC) ' ,2X , ' (L) ' ,2X, ' (L) ') 

0262 939 FORMA T(/5X,'A FULL REPORT (F) GIVES BREATH BY BREATH PARAMETERS', 

1 /5X,'A 1 MINUTE REPORT (1) GIVES PARAMETERS FOR 1 MINUTE ', 

2 * INTERVALS* 

3 /5X,'A 5 MINUTE REPORT (5) GIVES PARAMETERS FOR 5 MINUTE ', 

4 'INTERVALS', 

5 /5X,'A SHORT REPORT (S) GIVES THE OVERALL AVERAGES', 

6 //5X»'D0 YOU WANT A FULL REPORT (F), A 1 MINUTE REPORT (1),' , 

7 /5X , 1 A 5 MINUTE REPORT (5), OR A SHORT REPORT (S) ?' , 

8 /5X,' TYPE (F/1/5/S) : ',$) 

0263 940 FORMA T(/3X,' TIME' ,2X,'N2 VOL/' ,2X,'02 VOL/' ,1X,'C02 VOL/', 

1 1X,'N2/WEIGHT',1X,'N2 C0N3/' ,1X,'CUMMUL. ' ,2X,'* OF EST.',2x, 

2 ' BMR* , /2X , ' (rain) ' , IX, 'INTERVAL', IX, 'INTERVAL', IX, 'INTERVAL' , 

3 2X, '(ml/kg)' ,2x,' INTERVAL' ,3x,'N2' ,6X,'N2 CONT. ' ,' (BTU/hr) ' , 

4 /10X,' (ml) ' ,5X , ' (ml) ' ,5x,' (ml) ' ,23x,' (ml) ' ,6x ,' (%)' ) 

0264 941 FORMA T(/2X,39HENTER THE SUBJECT'S BODY WEIGHT IN kg: ,$) 

0265 942 FORMA T(/2X,52H ENTER THE SUBJECT'S ESTIMATED N2 CONTENT IN LITERS: 

1 $) 

0266 944 F0RMAT(/2X,42H ENTER THE SUBJECT'S ESTIMATED PULMONARY N2, 

1 20H CONTENT IN LITERS: ,$) 

0267 943 FORMA T(2X, I3,1X,F9.2,1X,F9.2,F9.2,F9.5,F9.5,F9.2,F9.2,F9.2) 

0268 955 FORMA T(10X,' BAD END DATA 1 ) 

0269 961 FORMA T(/25X,' AVERAGES: ') 

0270 962 FORMA T(//4X,' BREATH ',4X,'N2 VOLUME ',4X, 

1 ‘02 C0fc',4X,'N2 CON:' ,4X,'C02 CONC', 

2 /4X, ' VOLUME(L) ' ,4X,'/BREATH(L)' ,4X, '/BREATH' , 

3 4X, '/BREATH' ,4X, '/BREATH') 

0271 963 F0RMAT(/5X,F7.5,6X,F7,5,5X,F8.5,3X,F8.5.3X,F8.5) 

0272 964 FORMA T(/2X,' TOTAL N2 VOLUME IN LITERS* f ,F8.5) 

0273 965 FORMA T(/2X,' TOTAL # OF BREATHS* ',16) 

0274 972 FORMA T(//,5X,' END OF DATA. .READ ANOTHER FILE (Y/N): ' ,$) 

0275 810 FORMA T(Q,30A1) 

0276 814 F0RMAT(30A1,8A1,11A1, 12,F7.2, 11,A1,I2,F7.2,5( 12) ,5A1, 12,A1) 

0277 815 FORMA T(80A1) 

0278 816 F0Rl4A T( I4,F10. 1 ,5( F10. 5) ) 

0279 877 FORMA T(1A1) 

0280 END 
C 
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Local Variables, .PSECT 

$DA 1A, 

SI ze 

= 001220 ( 

328. words) 


Name 

Type 

Offset 

Name 

Type 

Offset 

Name 

Type 

Offset 

AGE 

1*2 

000670 

AMGAS 

1*2 

000650 

AMPRES 

R*4 

001102 

ANSWER 

R*4 

000676 

BMR 

R*4 

001056 

BOOHYD 

1*2 

000652 

BODPOS 

1*2 

000664 

BRAVG 

R*4 

001174 

BRN2V 

R*4 

001130 

BRSM 

R*4 

000712 

BRSUM 

R*4 

001106 

UR^MIX 

1*2 

000656 

BRVOL 

R*4 

000716 

BIN 

1*2 

000672 

COAVT 

R*4 

000722 

COSM 

R*'4 

001046 

COTDAV 

R*4 

000726 

COTDSM 

R*4 

000732 

COTID 

R*4 

001144 

CO TSM 

R*4 

000736 

COUNT 

R*4 

001150 

COVOL 

R*4 

000742 

C02 

R*4 

001170 

CUMTIM 

R*4 

000746 

DRUGS 

1*2 

000660 

ELPST 

R*4 

001124 

EXERCI 

1*2 

000662 

EXGRAV 

1*2 

000664 

EX TEMP 

R*4 

001076 

I 

1*2 

001072 

IANS 

L*1 

000644 

IB TH 

1*2 

001122 

IMIN 

1*2 

000674 

IMMERS 

L*1 

000645 

IYS 

L*1 

000625 

J 

1*2 

001074 

KGM 

R*4 

000702 

KCMMTS 

L*1 

000646 

M 

1*2 

001070 

mc 

1*2 

001066 

MONTH 

R*4 

C00706 

NTUAVG 

R*4 

001204 

NTDSM 

R*4 

001116 

N2 

R*4 

J01160 

N2AVG 

R*4 

001200 

N2AVT 

R*4 

000752 

N2C0NT 

R*4 

000756 

N2CUM 

R*4 

000762 

N2SM 

R*4 

000766 

N2SUM 

R*4 

001112 

N2TID 

R*4 

001140 

N2TSM 

R*4 

000772 

N2V0L 

R*4 

000776 

N2VWT 

R*4 

001002 

OIDAVG 

R*4 

001022 

01DSM 

R*4 

001026 

02 

R*4 

001164 

02AVT 

R*4 

001006 

02SM 

R*4 

001052 

02TID 

R*4 

001134 

02 TSM 

R*4 

001012 

02V0L 

R*4 

001016 

PC TN2 

R*4 

001032 

PULN2 

R*4 

001062 

SPCCND 

1*2 

000666 

T1MCNT 

R*4 

001036 

TMCNT 

R*4 

001154 

WE 1 01 T 

R*4 

001042 





Local and COMMON Arrays: 


of poor quality 


Name 

Type 

Section Offset 

GOMMTS 

L*1 

5DA1A 

000000 

IDAT 

L*1 

$UA 1A 

000505 

IDCQDE 

L*1 

$DA1A 

000515 

IF IL 

L*1 

$DA TA 

000566 

I NAM 

L*1 

$DA TA 

000530 

STRTIM L*1 

SDATA 

000500 


Size Dimensions 

000500 ( 160.) (4,80) 

000010 ( 4.) (8) 

000013 ( 6.) (11) 

000037 ( 16.) (31) 

000036 ( 15.) (30) 

000005 ( 3.) (5) 


Subroutines, Functions, Statement end Processor-Defined Functions: 
Name Type Naina Type Name Type Name Type Name Type 
SWAPDT 8*4 


* v * 

OF PQOU V. • 1 '» 


0001 

SUB ROUTINE SWAPD T(X, MONTH) 




0002 

LOGIC AL*1 X (8 ) 





0003 

REAL*4 MONTH 





0004 

IF( X ( 1 ) . EQ . 1 

O' 

.AND.X(2) .EQ. ' 

1' 

) 

MONTH-'OAN' 

0006 

IF( X ( 1 ) .EQ. 1 

O' 

.AND.X{2) ,EQ. ' 

2' 

) 

MONTH- 'FEB' 

0008 

IF(X(1).EQ,' 

O' 

.AND.X(2).EQ.'3' 

) 

MONTH* ' MAR' 

0010 

IF( X ( 1 ) . EQ* * 

O' 

.AND.X(2) .EQ. 

4' 

) 

MONTH- 'APR 

0012 

IF(X(1 ) .EQ. ' 

O' 

.AND.X(2).EQ. ' 

5' 

) 

MONTH- 'MAY 

0014 

IF(X(1 ) .EQ. 1 

O' 

.AND.X(2) .EQ. ' 

6' 

) 

MONTH-'JUN 

0016 

IF( X ( 1 ) . EQ. ' 

O' 

.AND.X(2) .EQ. ' 

V 

) 

MONTH- ' JUL 

0018 

IF( X ( 1 ) . EQ. ' 

O' 

.AND.X(2) . EQ. 1 

8' 

) 

MQNTH-'AUG 

0020 

IF(X(1) .EQ. 1 

O' 

.AND.X(2) .EQ. ' 

9' 

) 

MONTH-'SEP 

0022 

IF(X(1).EQ.' 


•AND. X( E) .EQ. ' 

1' 

) 

MONTH-'JAN 

0024 

IF(X(1).EQ. 1 

1 

.AND.X(2).EQ. ' 

2' 

) 

MONTH- 'FEB' 

0026 

IF(X(1). EQ . 1 

I 

.AND.X(2) .EQ. ' 

3' 

) 

MONTH-' MAR 1 

0028 

IF( X ( 1 ) .EQ. 1 

1 

.AND. X(2 ) . EQ. ' 

4' 

) 

MONTH-'APR 1 

0030 

IF(X(1 ) .EQ. 1 


. AND . X( 2 ) . EQ*. ' 

5' 

) 

MONTH-' MAY 1 

0032 

IF( X ( 1 ) . EQ. ' 


•AND. X(2 ) . EQ. ' 

6' 

) 

MONTH* 'OUN 1 

0034 

IF(X(1 ) .EQ. ' 


,AND.X(2).EQ. ' 

7' 

) 

MONTH*' JUL' 

0036 

IF( X ( 1 ) .EQ. 1 


.AND. X(2 ) . EQ. ' 

8' 

) 

MGNTH-'AUG 1 

0038 

IF(X(1).EQ.' 


• A ND . X ( 2 ) .EQ. ' 

9' 

) 

MONTH-'SEP’ 

0040 

IF(X(1).EQ. ' 

1' 

.AND. X(2 ) . EQ. ' 

O' 

) 

MONTH- 'OC T' 

0042 

IF( X ( 1 ) . EQ. ' 

1' 

•AND. X(2) . EQ. ' 

1' 

) 

MONTH- 'NOV 1 

0044 

IF ( X ( 1 ) . EQ. 1 

1' 

.AND. X(2) . EQ. ' 

2' 

) 

MONTH- 'DEC 1 

0046 

RETURN 






0047 

END 







Local Variables, .PSECT $DA1A, Size - 000004 ( 2. words) 

Name Type Offset Name Type Offset Name Type Offset 
MONTH R*4 0 000002 
Local and COMMON Arrays: 

Name Type Section Offset Size Dimensions 

X L*1 0 $DATA 000000 000010 ( 4.) (8) 
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5.5 UPDATE PROGRAM 


ORIGINAL IQ 
OF POOR QUALITY 


0001 PROGRAM UPDA TE 

C ********************************************************************* 

c ********************************************************************* 
c * * 

c * * 

C * TECHNOLOGY INCORPORATED * 

C * LIFE SCIENCES DIVISION * 

C * * 

C * * 

C * * 

0 ********************************************************************* 

C * * 

C * ‘ * 

c * * 

c * * 

C * PROGRAM NAME: UPDATE * 

C * PROGRAMMER: PENNY BUEKER * 

C * DATE: DECEMBER 1981 * 

C * * 

C * * 

C * * 

C * * 

C * * 

C * - - * 

C * * 

C * * 

C * COMPUTER SYSTEM: LSI-11 * 

C * OPERATING SYSTEM: ,..RT-llv4 * 

C * * 

C * * 

C * .. * 

C * * 

C * COMPILING SEQUENCE: * 

C * * 

C * LSI: FORTRAN UPDATE * 

C * * 

c * * 

c * * 

C * * 

c * - * 

c * * 

C * LINKING SEQUENCE: * 

C * * 

C * LSI: LINK UPDATE * 

C * * 

C * * 

c * * 

C * * 

C * - - - * 

c * * 

C * EXECUTION SFQIIENC E: RUN UPDATE * 

C * * 

0 ********************************************************************* 
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OF PCC»3 Q » 


g it******************************************************************** 

c 

C PROGRAM UPDATE TAKES PREVIOUSLY COLLECTED, UNFORMATTED 

C N2 DATA AND WRITES A FORMATTED FILE FOR A REPORT BY 
C N2DATA PROGRAM 

C 


c 

VARIABLES 

USE 

c 

AGE 

SUBJECT'S AGE 

c 

AMGAS 

CODE FOR AMBIENT GAS COMPOSITION 

c 

AMPRES 

AMBIENT PRESSURE IN MM HG 

c 

BODHYD 

CODE FOR BODY HYDRATION 

c 

BOOPOS 

CODE FOR BODY POSITION 

c 

BRN2V 

N2 VOLUME OF BREATH 

c 

BRTMIX 

CODE FOR BREATHING MIXTURE 

c 

BRVOL 

VOLUME OF BREATH 

c 

COTID 

C02 CONCENTRATION OF BREATH 

c 

DRUGS 

CODE FOR DRUGS 

c 

ELPS T 

ELAPSED TIME 

c 

EXERC I 

CODE FOR EXERCISE PROTOCOL 

c 

EXGRAV 

EXTERNAL GRAVITY (1, 0) 

c 

EX TEMP 

EXTERNAL TEMPERATURE DEGREES CENTIGRADE 

c 

I 

INDEX COUNTER 

c 

IB IN 

BREATH NUMBER 

c 

IDMY 

DUMMY INTEGER ZERO END OF DATA TAG 

c 

IMMERS 

IMMERSION (YES/NO) 

c 

J 

INDEX COUNTER 

c 

KCMMTS 

COMMENTS (YES/ NO) 

c 

N2TID 

N2 CONCENTRATION OF BREATH 

c 

02TID 

02 CONCENTRATION OF BREATH 

c 

RDMY 

DUMMY REAL ZERO EM) OF DATA TAG 

c 

r 

SPCOND 

CODE FOR OTHER SPECIAL CONDITIONS 

\J 

c 

ARRAY 

USE 

c 

COMMTS 

SECTION FOR OPTIONAL COMMENTS 

c 

IDAT 

OLD INTEGER ARRAY FOR DATE 

c 

IDC ODE 

SUBJECT IDENTIFICATION NUMBER 

c 

IF I L 

FILE NAME 

c 

I NAM 

NAME OF SU3JECT 

c 

LDAT 

NEW LOGICAL ARRAY FOR DATE 

c 

STRTIM 

STARTING TIME OF DAY 


C 

0002 LOGICAL*! IOC OOE ( 1 1 ) , IMMER$,STRTIM( 5) .KCMMTS, 

1 C0MMTS(4,80),IFIL(20),IFIL2(20),LNAM(30) 

0003 INT£GER*2 INAM{15) , IDA T(3) ,EXGRAV,BODPO$, 

1 DRUGS , EXERC I .BRTWIX.BODHYD ,AMGAS,SPCOMD , IB TH,AGE 

0004 REAL*4 EXTEMP .AMPRES, ELPS T,BRV0L,BRN2V ,02TID , 

1 N2TID.C0TID 

C 

c 

0005 EQUIVALENT (INAM.LNAM) 

C 

C INITIALIZE NEW VARIABLES 

C 

0006 DO 20 0=1,11 

0007 20 IDC QDE( J )= 1 ' 
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ORIGINAL mm 5S 
OF POOH QUALITY 


0008 

0009 

0010 
0011 
0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 
0021 
0022 

0023 

0024 

0025 

0026 
0027 


0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 


0036 

0037 


0038 

0039 

0040 

0041 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 


0053 


IMMERS 3 ' ' 

DO 30 J=1 ,5 
30 S TRTIM( J )=* ' ' 
KCMMTS 3 ' * 

DO 40 J 3 1 ,30 
40 LNAM(J )=' ' 

DO 80 1=1,4 
DO 80 J=1 ,80 
80 C0MMTS(I ,J)= ' ' 
AGE=0 
EXGRAV=0 
80DP0S=0 
DRUGS =0 
EXERC 1=0 
BRTMIX=0 
B0DHYD=0 
AMGAS=0 
SPC0ND=0 
EXTEMP=0.0 
AMPRES=0.0 


WRI TE(7,917) 

READ (5,810) MC, (IFIL(J) 

IF IL( MC+1 )=0 
WRI TE(7 ,918) 

READ (5,810) MC, ( IFIL2CJ ) ,J=l ,MC) 

IF IL2 ( FC+1 )=0 

0PEN(UNIT=1, TYPE 3 'OLD' , NAME 3 IF I L, FORM 3 ' UNFORMATTED' ) 
0PEN(UNIT=2, TYPE 3 ' NEW .NAME 3 IF I L2,F0RM=' FORMATTED ' ) 


READ(1)INAM,IDAT 

WRI TE(2 ,914) ( LNAM( I ) ,1=1,30) ,IDA T(1 ) ,' - 1 , 

1 IDA T( 2 ) , * — * , IDA T(3 ) ,( IDCODE( I ) ,1=1 ,11) , 

2 A GE , EX TEMP , EXGRA V , IMMERS, BOD PO S , AMPR ES ,D RU GS , EXERC I , 

3 BRTMIX,80DHYD,AMGAS,(STRTIM(I),I 3 1,5) ,SPCOND,KCMMTS 
DO 90 1=1,4 

90 WRI TE(2 ,91 5) (COMMTS( I , J ) ,J=1 ,80 ) 

100 READ(1,END=1 5U,ERR=1 50) IB TW.ELPS T,8RV0L,BRN2V,02TID, 

1 N2TID ,C0TID 
IF ( IB TH. EQ.O)GO TO 200 

WR I TE( 2 ,916)18 TH,ELP$ T,BRV0L,BRN2V,02TID,N2TI0,C0TID 
GO TO 100 
150 IB TH=0 
EL PS T=0 . 

BRV0L=0. 

BRN2V=0. 

02TID=0. 

N2TID=0. 

C0TID=0, 

200 WRI TE(2,916)IB TH, ELPS T, 8 RVOL , B RN2V , 02 TID , N2 TID ,C 0 TID 


300 CL0SE(UNIT=1,DISP 3 'SAVE' ) 
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0054 


CL0SE(UNI T a 2 ,D ISP* 'SAVE' ) 


C 

C 

0055 914 FORMA T{30A1.2(12,A1) , 12, UA1, 12, F7. 2 , I1,A1,I2,F7. 2, 5(12), 

1 6A1 12 All 

0056 915 FORMA T(8QA1) 

0057 916 FORMA T{ I4,F10.1,5(F10.5) ) 

0058 917 FORMA T(/5X,' ENTER FILENAME ON WHICH DATA IS STORED \ 

1 /10X,'(DEVICE:FILENAME.TYPE): 1 ,$) 

0059 918 FORMA T(/5X,' ENTER FILENAME ON WHICH DATA IS TO BE PLACED 

1 /10X,' (DEVIC £:FILENAME. TYPE) : ' ,$) 

0060 919 FORMAT! I4,F10.1,4(F10. 5)) 

0061 810 FORMA T(Q,20A1) 

0062 END 


OF PC4&1 QwAU»V 
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FORTRAN IV Storage Map for Program Unit UPDATE 

Local Variables, .PSECT SDATA, Size = 000754 ( 246. words) 


Name 

Type 

Offset 

Name 

Type 

Offset 


Name 

Type 

Offset 

AGE 

1*2 

000700 

AMGAS 

1*2 

000672 


AMPRES 

R*4 

000706 

BOOHYD 

1*2 

00U670 

BODPOS 

1*2 

000660 


BRN2V 

R*4 

000722 

BRTMIX 

1*2 

000666 

BRVOL 

R*4 

000716 


COTID 

R*4 

000736 

DRUGS 

1*2 

000662 

ELPST 

R*4 

000712 


EXERCI 

1*2 

000664 

EXGRAV 

1*2 

000656 

EX TEMP 

R*4 

000702 


I 

1*2 

000744 

IB in 

1*2 

000676 

IMMERS 

L*1 

000654 


J 

1*2 

000742 

KCMMTS 

L*1 

000655 

MO 

1*2 

000746 


N2TID 

R*4 

000732 

02TID 

R*4 

000726 

SPCONO 

1*2 

000674 





Local and COMMON Arrays 

• 

• 







Name 

Type Section 

Offset 

Ml WW M 

—Si ze- 


Dimensions 


COMMTS 

L*1 

sdata 

000020 

000500 ( 160.) 

(4.80) 



IDAT 

1*2 

$DATA 

000626 

000006 ( 

3.) 

(3) 



ICC ODE 

L*1 

SDATA 

000000 

000013 ( 

6. ) 

(ID 



IF IL 

L*1 

$DA TA 

000520 

000024 ( 

10.) 

(20) 



IF1L2 

L*1 

$DA TA 

000544 

000024 ( 

10.) 

(20) 



INAM 

1*2 

SDATA 

000570 

000036 ( 

15.) 

(15) 



LNAM 

L*1 

SDATA 

000570 

000036 ( 

15.) 

(30) 



STRUM 

L*1 

$ DATA 

000013 

000005 ( 

3.) 

(5) 




o&emi r. . 

of POOR Q Utu 


.i i v 
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6.0 SAMPLE RUNS WITH INPUT AND OUTPUT 

6.1 PERSONAL DATA INPUT PROGRAM 
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ORIGINAL PAGE 13 

OF POOR QUALrfV 


• Pi <N DYI.'Rlil i 

•J I TP' ' WASHOUT PFRSONAl HAT A INPUT PROGRAM 

PUP NAME ON WHICH TO STORE OAT A 
OF VICE FILENAME * TYPE * SYtTFST.POl 


TDI NTIFICATION NUMBER OF THF SUBJECT < XXX-XX-XXXX > : 



CATE (MM-DD-YY) • 07-08-82 
HATE OF BIRTH I HH-DD-YY) : | 
AGE IN YEARS! 34 


sex (m/d: m 
HEIGHT IN CMJ 178 
Nil OF UEIGHT IN KG I 78 


JS % HOOr FAT EXPLICITLY KNOWN <Y/N>? YU 
ENTER X BODY fat: 15 

JS BODY COMPOSITION TO BE MEASURED BY WATER IMMERSION <Y/N>? Y 
WATER TEMPERATURE 1*1 CENTIGRADE: 34 
WATER DENSITY IN KO/L: .988 
RESIDUAL VOI IJMF TN L: 1.3 
uriGHT OF UNDERWATER CHAIR IN KG.* 3.1 
ENTER THE NUMBER OF TRIALS FT J UNDERWATER WEIGHT.' 10 


TRIAL 

1 

UWDEPUA T FR 

WEIGHT 

IN 

kg: 

A 

TR IAL 

2 

UNDERWATER 

WEIGHT 

T N 

kg: 

A 

TRIAL 

3 

UNOERUATER 

WEIGHT 

IN 

kg: 

5 

TRIAL 

A 

undfrwater 

WE IGMT 

IN 

kg: 

7f 

TR1A! 

•5 

UNDERWATER 

WEIGHT 

IN 

kg: 

4 

TRIAL 

6 

UNDERWATER 

WEIGHT 

IN 

kg: 

S 

TRIAL 

y 

UNDERWATER 

Wf IGHT 

IN 

t G : 


TRIAL 

A 

UNDE RWA ' f R 

UEIGHT 

IN 

I • * 

<S 

TRIAL 


UNDERWA Tf K 

ML TAHT 

IN 


5 

trial 

1 

UN OF RUATER 

We IGHT 

IN 

KG : 

A 

DATE OK 

Ht A 1 URFMFNT S i 

i pim • t r - 1 

r *r i 

! 1 



|| 






IS BODY COMPOSITION 1 TO BE MEASURED BY SMNEOLD PROCESS I <Y/N>? Y 


B'jft Y SIDE USED <R/l > * R 

I NITER THE NUMBER OT MEASUREMENTS RECORDED* 3 


measurfmfn r 

1 

BICEPS IN MM? 

t5 



measurement 

2 

BICEPS IN MM? 

15 



MEASUREMENT 

3 

BICEPS IN mm: 

14 


original page u 

MEASUREMENT 

1 

TRICEPS IN 

mm: 

9 


OF Poon quality 

MEASUREMENT 

9 

TRICEPS IN 

MM : 

9 



MEASUREMENT 

3 

TRICEPS IN 

MMJ 

10 



MEASUREMENT 

1 

SUBSCAPUL AR 

IN 

mm: 

3 


MEASUREMENT 

2 

SUBSCAPULAR 

IN 

mm: 

5 


MEASUREMENT 

3 

SUBSCAPULAP 

IN 

mm: 

4 


MEASUREMENT 

l 

SUPRA ILIAC 

IN 

mm: 

10 


MEASUREMENT 

£. 

SUPRA I L T AC 

IN 

mm: 

19 


MEASUREMENT 

3 

SUPRA ILIAC 

IN 

mm: 

18 



date: of measurements <mm-dd-yy>: 12- 10-02 

IS BODY COMPOSITION TO BE MEASURED BY SKINFOLD PROCESS II (Y/N)? Y 
BODY SIDE USFD R/L ' 7 R 

ENTER THE NUMDER OF MEASUREMENTS RECORDED? 3 
MEASUREMENT 1 MIDCLAUICULAR IN MM? 5 
MEASUREMENT 2 MIDCIAUICULAR TN MM? 5 
MEASUREMENT 3 MIDCLAUICULAR IN MM? 4 
MEASUREMENT 1 UMBILICUS IN MM? 11 
MEASUREMENT 2 UMBILICUS IN MM? |0 
MEASUREMENT 3 UMBILICUS IN MM? 10 
MEASUREMENT 1 ANTERIOR MID- THIGH IN MM? 11 

rtf .“iSURGME.-U 1 ANTERIOR MiD- THIGH JN MM? I ! 

MEASUREMENT < ANTERIOR MID- THIGH IN MM? 12 

BATE OF MEASUREMENTS f Hfl-T'D-Y 1 ? I 1 •*-. • 
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ALIGN PAPER TO TOP OF PAGE AND HIT TALK! AGE RETURN 


ORIC 
OF F* 


PERSONAL CHARACTERISTICS PROFILE 


SUBJI CT | 


DATA FILE 

SYJ TEST. PD I 

DATE 

08-JUL ~82 

male 

AGE 36 

HEIGHT 

178.0 CM 

X BODY FAT 

15.0 X 

NUDF 




HEIGHT 

78 ♦ 0 KG 

DATE OF BIRTH 



BODY COMPOSITION EVALUATIONS 


WATER IhMERSION PROCESS 


NUDE WEIGHT 


73.00 

KG 

WATER 

TEMPERATURE 34.00 C 

RESIDUAL VOLUME 


1.30 

L 

WATER 

DENSITY 0.99 KG/L 

UNDERWATER CHAIR 

WEIGHT 

3.10 

KG 

DATE 

22-DEC-81 

UNDERWATER WEIGHT 

< KG ) 


AVERAGE UNDERWATER WEIGHT = 

TRIAL 

WEIGHT 

.KG) 


TRIAL. 

WEIGHT (KG) 

1 

£» 

o 

o 



2 

4.00 

3 

5.00 



4 

5.00 

5 

4.00 



6 

5.00 

y 

5.00 



$ 

6.00 

Q 

5.00 



10 

4.00 

WATER WEIGHT 

1 . 60 K G 



BODY VOLUME 76.03 L 

EiOPY PENS P Y 

1 .07a KG ' 

L 


\ ROOT 

FAT 32.48 X 


4 . “’O KG 
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ORIGINAL PAG . 

OF POO.T QUALITY 




skinfold 

PROCESS I • 


BODY 

SIDE USED 

RIGHT 



DATE 18-DEC-82 

TRIAL 


MEASUREMENTS 

IN 

MM 



BICt PS 

TRICEPS 


SUBSCAPULAR SUTRAILIAC 

t 

15.00 

9.00 


5.00 

18.00 

•*> 

15.00 

9.00 


5 • 00 

19.00 

3 

14.00 

10.00 


4.00 

18.00 

MEAN 

14.67 

9.33 


4.67 

18.33 

BODY 

nr.Nsm 

1 .055 KG/L 



7. BODY FAT 19 



CK T MC ill n 

DDi'W-'rt'C? f T 





r r 

\U< L . » O I 1 


BODY 

SIDE USED 

RIGHT 



DATE 25-DEC- 82 

TR IAL 


MEASUREMENTS 

IN 

MM 


M I DCLAC I CUL AR UMB I L I Cl IS 


ANTERIOR MID-THIGH 

1 

5 . 00 

11.00 


11.00 


•Y 

5 . 00 

10.00 


11.00 


3 

4.00 

10.00 


17.00 


MEAN 

4,*7 

10.33 


11.33 


BODY 

DENSITY 

1 .07w KG/L 



X BODY FAT C 


NUTR . 1 I Of) JiWNAl F OR hill A 


BODY VOLUME 

74. 

4- —• 

L 

BODY DENSITY 

1.051 KG/L 

X BODY PAT 

21 . 

30 

Am 

7. PAT FREE MASS 

78.80 X 

*. TOTAI BODY WATER 

*58 . 

If. 

V 
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— 

- NITROGEN i 

CONTENT DATA 




KNOWN 

X POPY FAT 

worrR 

IMMERSION 

SKINFOLD 
PROCESS 1 

SKINFOLD 
PROCESS II 

X BODY FAT 

15.00 

32.48 

l 9 . 05 

8.57 

F A 1 WFIGHT (KG) 

11.70 

25.34 

14.86 

6.68 

FA! FREE MOSS < KG ' 

6* . 30 

52.66 

63.14 

71.32 

LFAN BODY 
WATER MASS (KG' 

47.74 

37.92 

45.46 

51.35 

VOLUME OF FAT <L> 

13.00 

28. 15 

16.51 

7.42 

VOLUME l FAN 
BODY WA1CR < L ' 

48.06 

38.17 

45.77 

51.70 

NITROGEN IN FAT <L> 

0.871 

1.886 

1.106 

0.497 

NITROGEN IN 

LEAN POOY WATER (L> 

0.625 

0.496 

0.595 

0.672 

TOTAL BODY 
NITROGEN U ) 

1 . 496 

2.383 

1 . 701 

1.169 

NITR06FN/KG 
BODY WEIGHT iL) 

0.0192 

0.0305 

0.0218 

0.0150 


NUTRITION 

JOURNAL 

21.20 

16.54 
61.46 

44.25 

18.39 

44.55 
1.231 

0.579 

1.810 

0.023; 


ORIC’T" r 

OF POC.i QuAL.U 


6.2 DECOMPRESSION DATA PROGRAM 


ORIGINAL PAG- j 

OF POOR QUALITY 


.RUN liYIJIin OAT 


DECOMPRESSION expfriencf data program 

FUENAhf ON WHICH TO STORE DATA 
DEVICE. J Fit ENAMfc .TYPC» SY 1 I EOT »Df C 

M'H lli'T IDLNTIF 1CATION NUMBER (XXX XX X X X X > : 

TFST NUMBER (XX): 01 

TEST DATE (hH-DD-YY'J 07-00 0.! 

HOU MANX PHASES < X X > : 2 

INITIAL PN2 (PSD (XX.XXM II.;' 

PN2 DURING UASMOUT. PHASE I (PSI) (XX. XX) I ° 

DIJRAT I ON OF WASHOU I * PHASE I (MIN' < XX XX > ! 80 

PN2 DURING WASHOUT. PHASE I «PSI' (XX. XX) 5 0. S 

DURATION OP WASHOUT. PHASE I (MIN) <XXXX)J 80 

FINAL PRESSURE (FSIA) (XX. XX): S.7 

TEMPERATURE IN CENTIGRADE ( XX ) J 

TIME OF FINAL DFC •"TRESS ION -HHTMM': 1 1 00 

TIME OF RFCOMF'RESSION ( HH J MM ) : HM() 

EXERCISE LEVFt 

I nu 400 SOO PTtJ/HR 

MCD 800-1 400 t*TU HR 

HIGH 1c«00 MU- HR AND rtW'VE 

FNIiiR (L-M H) 


WE ft BUBBLES MFASIIRFD ( Y N > •' X 


Wf Rt 


1 I rtf 
I IME 
r i nr 
1 1 MF 


BUPDl ES PRrsi NT 
GRADE! Or Dll Ml I ; 
OR ONSFT GRADE t 
OF ONS 1 T GRADE 2 
Of ONSET GRA 'tl 1 
HI ONSET t.RA 


Y / N > f ) 

S FNTFR ' FOR NOT OBSERVED 

( hh:mm ) • i ce ' 

* hh ; mm ) : () 

i cm * Hfi • : i 


> ( »j, * : mm 
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GRADE ntr BURBLES J ENTER 0 FOR NOT OBSERVED 
TThE OF REMISSION GRADE 1 CHUJMM : IS.’OO 

TIME OF REMISSION GRADE 2 (UH:nh)J 0 

TIME OF REMISSION GRADE 3 < HH I Mh ) t 0 

TIME OF REMISSION GRADE 4 ( HH 5 MM ) J 0 

GRADE OF BUBBLES J ENTER 0 FOR NOT OBSERVED 
PRESSURE AT REMISSION GRADE l (PSIA) (XX. XX): 10 

PRESSURE AT REMISSION GRADE 2 (PSIA) (XX. XX): 0 

PRESSURE AT REMISSION GRADE 3 (F'SIA) (XX, XX): 0 

PRESSURE AT REMISSION GRADE 4 (PSIA> (XX. XX): 0 

WERE BENDS PRESENT (Y/M)? Y 
MENDS LOCATION (TEXT)J LEFT ELBOW 

GRADF OF BENDS t ENTER 0 FOR NOT OBSERVED 
TIME OF ONSET GRADE 1 ( HH : MM ) * 14JOO 

TIME OF ONSET GRADE 2 (HHJMrt): 0 

TIME OF ONSET GRADE 3 < HH J MM ) I 0 

TIME Or ONSET GRADE 4 ( HH J MM > t 0 

GRADE OF BENDS : ENTER 0 FOR NOT OBSERVED 
TIME OF REMISSION GRADE t <HH:MM>: 1 1 : 50 

TIME OF REMISSION GRADE 2 ( HH 5 MM ) : 0 

TIME OF E F MISSION GRADE 3 ( HH ' MM > ! 0 

TIMF OF REMISSION GRADE 4 < HH : MM ) 5 0 


GRADE 

OF BENDS : 

ENTER 1 

0 

r or not 

OBSERVED 


URI 

A T 

REMISSION 

GRADE 

x 

< p R 1 £ ) 

( > V . X X > 1 

10 

PRESSURE 

AT 

REMISSION 

GRADE 


(PSIA ' 

• > t . x x ) : 

0 

PRESSURE 

or 

REMISSION 

mRa fi r. 

3 

(P^IA > 

• 

0 

PRESSURE 

AT 

REMISSION 


A 

(PM A > 

< xx. XX) : 

0 


At IGN PAPER TO TOP »j< ,r.f AND IT* • b | •.'.( RETURN 
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OF POO»^ QUALITY 

DECOMPRESSION DATA OUTPUT 

SUBJECT * 

NITROGEN PRESSURE AT TIME OF FINAL DECOMPRESSION 
FOR 180 MIN TISSUE J 10.00 PS I 

FOR 240 MIN TISSUE : 10.24 PSI 

FOR 360 MIN TISSUE l 10.52 PSI 

DECOMPRESSION RATIO AT TIME OF FINAL DECOMPRESSION 

FOR ISO MIN TISSUE J 1.49 

FOR 240 MIN TISSUE J 1.53 

FOR 360 MIN TISSUE i 1.57 
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ORIGINAL PAGE \3 
OF POOR QUALITY 


6.3 NITROGEN WASHOUT PROGRAM 


.RUN N2WASH 


N 2 UASHOUT 


INSTRUCTIONS ? 


TESTLOAD N2UASH HAS 6 PHASES 

1 DATA CONSTANTS— ALLOWS USER 
MODIFICATION OF CAL-GAS Z“S. OTHERWISE 
PROGRAM USES DEFAULT VALUES. 

2 INITIALIZATION— ENTER HEADER INFORMATION 

3 CALIBRATE HASS SPECTROMETER 

4 CALIBRATE FLOW METER 

5 TEST DATA-SAMPLES TEST DATA CONTINUOUSLY 
UNTIL USER TERMINATES 

6 TERMINATE— RETURNS CONTROL TO SYSTEM MONITOR 


ENTER * I RETURN 


PHASE 1 DATA CONSTANTS 
TO LEAVE VALUE UNCHANGED, ENTER 
N t RETURN. TO CHANGE, ENTER Y 
S RETURN. GET -NEW VALUE" PROMPT, 
ENTER NEU VALUE I RETURN 

CALPCTd ,1 )* 79. 00 
CALPCT (2,1 )■ 21.00 
CALPCT(3,1)> 0.03 
CALPCTd, 2)* 0.00 
CALPCT<2,2>*~?9.?9’- 
CALPCT ( 3 , 2 ) a 0.00 
CALPCTd, 3>« 9.31Y 

NEU VALUE *8.010 
CALPCT (2,3> a 02. 69Y 
NEU VALUE *86.99 
CALPCT(3,3)« 7.999 
NEU VALUE *3.004 
SAMPLE RATE* 23/SECY 
NEU VALUE *13 
BREATH 6ATE* 13. 

1 


END OF PHASE 
NTER NEU PHASE I 2 
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PHASE 2 INITIALIZATION 
DATE (MH-DD-YY): 03-09-82 
SUBJECT NAME t JOHN SMITH 
SUBJECT IDENTIFICATION « (XXX-XX-XXXX ) : 

SUBJECT AGE (YEARS AS OF THIS DATE): 2? 

EXTERAL TEMPERATURE IN CENTIGRADE (XX.X)t 35 
EXTERNAL GRAVITY (1,0): 1 
IS SUBJECT IMMERSED (Y/N): N 

ENTER CODE FOR BODY POSITION (0 FOR NO DATA OR 1-99): 0 

AMBIENT PRESSURE IN MM HG (XXX. X): 760 

ENTER CODE FOR DRUGS (0 FOR NO DATA OR 1-99): 0 

ENTER CODE FOR EXERCISE PROTOCOL (0 FOR NO DATA OR 1-99): 0 

ENTER CODE FOR BREATHING MIXTURE (0 FOR NO DATA OR 1-99): 0 

ENTER CODE FOR BODY HYDRATION (0 FOR NO DATA OR 1-99): 0 

ENTER CODE FOR AMBIENT GAS COMPOSITION (0 FOR NO DATA OR 1-99): 0 

STARTING TIME OF DAY (HH:MM) : 08:00 

ENTER CODE FOR OTHER SPECIAL CONDITIONS (0 FOR NO DATA OR 1-99): 0 
ARE THERE ANY COMMENTS TO RECORD ( Y/N ) ? Y 

TO ENTER COMMENTS HIT CARRIAGE RETURN THEN ENTER UP fO A LINES OF COrtilENT 
?TIS IS THE FIRST LINE OF A TEST 
’THIS IS THE SECOND LINE OF A TEST 
’THIS IS ANOTHER TEST LINE 
’TIS IS THE LAST LINE FOR ENTERING TEXT. 

END OF PHASE 2 




152 



NTER NEU PHASE I 3 


ORIGINAL PAC.- »J 
OF POOR QUALITY 


PHASE 3 HASS SPEC CALIBRATION 
VERIFY CAL 6ASES ARE OPEN 
SET HASS SPEC FUNCTION TO H AUTO" 
PAUSE ~ SELECT M-2 0-103. RETURN 


PAUSE — SELECT N-2 0-100Z. RETURN 


NITR06EN, HI-RANGE 
CTS-1 CTS-2 SLOPE 

1601.40 171.30 0.050 

NITR06EN, LO-RANBE 
CTS-1 CTS-2 SLOPE 

1651.81 -0.27 0.005 

OXYGEN 

CTS-1 CTS-2 SLOPE 

2047.00 1813.27 0.056 

CARBON DIOXIDE 

CTS-1 CTS-2 SLOPE 

1036.52 -0.64 0.005 


END OF PHASE 3 


INTCPT 

-0.493 


INTCPT 

0.K01 


INTCPT 
-1 3.bo4 


INTCl'T 

0. w3 
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ORIGINAL P«ne IS 
OF POOR QUA ITV 

NTER NEW PHASE • 4 

PHASE 4 FLOU HETER CALIBRATION 
PAUSE - ZERO SPIROHETER. RETURN THANK YOU 



NTER NEU PHASE • S 


SELECT N-2 0-1 00Z RANGE. 
RETURN TO START. 



TO STOP AT ANY TINE, ENTER 

S I RETURN. 

1 

9.0 

2.31719 

0.32105 

0.12754 

2 

17.0 

2.77444 

0.32822 

0*1 1830 

3 

29.0 

3.02292 

0.20393 

0.06812 

4 

40.0 

2.93323 

0.13337 

0.04523 

3 

30.0 

2.46371 

0.06869 

0.02786 

1 HIN N2(L) 1.03747 N2T0T 1. 05747 
SELECT N-2 0-1 OX RANGE 

6 

63.0 

2.08422 

0.03345 

0.01605 

7 

72.0 

2.46863 

0.05014 

0.02031 

8 

83.0 

2.34334 

0.03602 

0.01416 

0 

97.0 

2.02381 

0.02119 

0.01047 

10 

108.0 

2.03873 

0.01837 

0.00892 

11 

120.0 

2.19856 

0.01782 

0.00811 

2 HIN N2(L) 0.1769? N2T0T 1.23446 

12 

128.0 

1.82779 

0.01440 

0.00788 

13 

137.0 

1.39287 

0.01011 

0.00726 

14 

146.0 

1.56421 

0.00942 

0.00602 

13 

133.0 

1.17964 

0.00696 

0.00590 

16 

137.0 

1.17736 

0.00011 

0.00009 

17 

165.0 

1 .63856 

0.00764 

0.00461 

18 

173.0 

1.78037 

0.00832 

0.00467 

3 HIN N2(L) 0.03693 N2T0T 1.29141 

19 

183.0 

1 .56372 

0.00624 

0.00399 

20 

193.0 

1.42941 

0.00547 

0.00383 

21 

201.0 

1 .08268 

0.00432 

0.00399 

22 

204.0 

1.08333 

0.00005 

0.00005 

23 

211.0 

1.43686 

0.00474 

0.0032.' 

24 

220.0 

1.31297 

0.00423 

0.0032.1 

23 

228.0 

1.27058 

0.00403 

0.00317 

26 

237.0 

1.32840 

0.00382 

0.00287 

4 HIN 

N2(L) 0.03292 N2T0T 1.32433 

27 

248.0 

1.32380 

0.00391 

0.00293 

28 

256.0 

1.22592 

0.00348 

o.ov:a<i 

29 

264.0 

1.21098 

0.00328 

0.v0_7» 

30 

273.0 

1.19766 

0.00338 

0.0 v»262 

31 

262.0 

1.27091 

0.00365 

0.00288 

32 

290.0 

1.34025 

0.00370 

0.(iw_:78 

33 

299.0 

1.53187 

0.00416 

0.vV:6u 

3 HIN 

N2(L) 0.02336 N2T0T 1.3498? 

34 

308.0 

1.4415? 

0.00384 

0.00266 

33 

316.0 

1.20903 

0.00307 

0.00234 

36 

. 325.0 

1.21488 

0.00306 

0.00252 

37 

334.0 

1.27188 

0.00322 

0.00253 

38 

343.0 

1 J4439 

0.00287 

0.00251 

39 

330.0 

0.99904 

0.00230 

0.v.*j3\> 

40 

360.0 

1.10623 

0.00208 

O.OOldj 

6 HIN 

N2U) 0.02044 N2T0T 1.37033 

41 

367.0 

1.12036 

0.00225 

O.Ov.'Ol 

42 

373.0 

1.24167 

0.00274 

O.vv.21 

43 

383.0 

1.14131 

0.00191 

0.00168 

44 

390.0 

1.20010 

0.00261 

0.00217 

43 

396.0 

0.16359 

0.00022 

0.00132 

46 

398.0 

0.16851 

0.00001 

0.00004 

47 

406.0 

1.79222 

0.00388 

0.00216 

48 

414.0 

1.18397 

0.00273 

0.00231 
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ORIGINAL FAGE 13 

OF POOR QUALITY 




o f ^v^ 


7 HIM N2(L) 0.01633 N2T0T 1.38660 


49 

421.0 

1.11711 

0.00249 

0.00223 


30 

430.0 

1.19636 

0.00246 

0.00203 


31 

438.0 

1.30323 

0.00290 

0.00222 


32 

446.0 

1.13593 

0.00210 

0.00185 


33 

434.0 

1.18483 

0.00228 

0.00193 

ORIGINAL PAG" 

34 

463.0 

1.23126 

0.00208 

0.00167 

OF POOR QUALITY 

33 

472.0 

1.34025 

0.00270 

0.00202 


36 

480.0 

1.20887 

0.00229 

0.00189 



8 HIN N2(L) 0.01930 N2T0T 1.60397 


57 

489.0 

1.19718 

0.00230 

0.00192 

58 

496.0 

1.13430 

0.00216 

0.00187 

59 

303.0 

1.13238 

0.00209 

0.00185 

60 

313.0 

1.26928 

0.00244 

0.00192 

61 

513.0 

1.26437 

0.00010 

0.00008 

62 

522.0 

1.33863 

0.00241 

0.00180 

63 

531.0 

1.33928 

0.00233 

0.00174 

64 

540.0 

1 .27822 

0.00192 

0.00150 

9 HIN 

N2(L) 0.01376 N2T0T 1.42173 

65 

347.0 

1.12426 

0.00186 

0.00166 

66 

535.0 

1.04370 

0.00175 

0.00168 

67 

362.0 

0.97712 

0.00165 

0.00169 


571.0 

1.04906 

0.00182 

0.00173 


378.0 

1.02239 

0.00 , 72 

0.00168 


A 

1.19571 

0.00207 

0.00173 



«7034 

0.00180 

0.00168 



*' T 0T 1 .43440 

• » 

1251 

1232 

1061i. 


*4209 

0.00172 

0.00172 

•Q6 

177 HIN 

N2(L) O.OOl-. 


1233 

10622.0 

1.44to. 



1254 

10632.0 

1.21001 

V. 


1255 

10640.0 

1.20221 

0.000.:. 


1236 

10653. C 

1.55836 

0.00032 

0.. 

1237 

10664.0 

1.48544 

0.00030 

v . vv02y 

1258 

10673.0 

1.13205 

0.00028 

0. Ws/. j 

178 HIN 

N2(L) 0.00174 N2T0T 2.17932 

1259 

10683.0 

0.82219 

0.00015 

O.lrOV id 

1260 

10685.0 

0.00000 

0.00000 

y . jyyOy 

1261 

10696.0 

1.76007 

0.00043 

0.00025 

1262 

10709.0 

1.52344 

0.00031 

0.00021 

1263 

10721.0 

1.42649 

0.00029 

0.00020 

1264 

10731.0 

1.27074 

0.00026 

0.00020 

1265 

10733.0 

0.08211 

0.00000 

0.00003 

179 HIN 

N2(L) 0.00145 N2T0T 2.18077 

1266 

10742.0 

0.87919 

0.00016 

0.00018 

1267 

10752.0 

1.79904 

0.00051 

0.00023 

1268 

10763.0 

1.34236 

0.00030 

0/00023 

1269 

10774.0 

2.00254 

0.00047 

0.000?4 

1270 

10785.0 

1.68634 

C. 00034 

0.00020 

1271 

10797.0 

1.75503 

0.00036 

0.00021 


S 1 80 HIN N2(L) 0.0021b M2 TOT 2.18292 


END OF PHASE 3 
NTER NEU PHASE • 6 


STOP " BYE 



NITROGEN WASHOUT MATA ANAL ISIS 
ENTER FILENAME ON WHICH DATh IS STORED 
( DF V I f'E : F 1 1 E NAME .TYPE): DY l J IERWU l . N !U 

A FULL REPORT (F) GIVES BREATH BY BREATH PARAMETERS 
A 1 MINUTE REPORT <1> GIVES PARAMETERS FOR 1 MINUTE INTERVALS 
A 5 MINUTE REPORT <5> GIVES PARAMETERS FOR t> MINIJIL INTERVALS 
A SHORT REPORT <S> GIVES 1 HE OVERALL AVERAGES 

DO YOU WANT A FULL REPORT <F)» A 1 MINUTE REPORT <1)» 

A 5 MINUTE REPORT *5 '.OR A SHORT REPORT <S> ’ 

TYPE (F/l/5/S»: F 

PAUSE — ADVANCE CARRIAGE IF DESIRED. RETURN 


N?DATA REPORT 


IEPUU1 

SUBJECT ID NUMBER: 
EXTERNAL TEMPERATURE 2 
IMMERSION’ 

AnBIENT PRESSURE! 

exercise code: 

BODY HYDRATION CODE: 
SPECIAL CONDITION CODE: 

comments: 


0.00 

NO 

0.00 

0 

0 

o 


age: o datf: i-dec-oi 

starting time: 

EXTERNAL GRAVITY: 

BODY POSITION CODE: 

DRUG cjde: 

BREATH MIXTURE CODE* 

AMBIENT GAS CODE* 

COMMENTS’ 


0 

0 

0 

0 

0 

-0 


JJ 
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BREATH * 

ELAPSED 

BREATH 

N 2 VOL 

02 CONC 

N2 CONC 

C02 CONC 


T I ME 

VOLUME 

/BREATH 

/ BPEATH 

/AREA fH 

/BREATH 


(SEC) 

<l.) 

<L ) 




1 

9.C 

2.51719 

0.32105 

0.81261 

0.12754 

0.03284 

2 

17.0 

2.77444 

0.32822 

• 0 1 5 74 

0.11830 

0.03991 

3 

2?.0 

3.02292 

0.2059 3 

0.88528 

0.06812 

0.03382 

4 

40.0 

2.95325 

0.13357 

0.90448 

0.04523 

0.03693 

5 

50.0 

2.46571 

0.0686? 

0.92569 

0.02736 

0.03502 

6 

63.0 

2.08422 

0.03145 

0.94523 

0.01.605 

0.02977 

7 

72.0 

2.4*863 

0.05014 

0.9.3448 

0.02031 

0 . 0 ■ 4 

8 

85 . 0 

2.54334 

0.03602 

0.94538 

0.01416 

0.03561 

9 

97.0 

2.023C1 

0.021!? 

0.95163 

0.01047 

0,03204 

10 

108.0 

2.05873 

0.01837 

0.95308 

0.00892 

0.03 765 

11 

120.0 

2.19856 

0.01782 

0.°4867 

0.00811 

0.03430 

12 

128.0 

1.8277? 

0.01440 

0 . 94 7 7? 

o.o-:78e 

0.03 720 

.13 

137.0 

1 . 39287 

0.01011 

0.94576 

0.00726 

0.03748 

14 

146.0 

1.56471 

0.00942 

0.95191 

0.00602 

0.03308 

15 

155.0 

1 . 1 7?6«» 

0.00696 

0.94392 

0.00590 

0.03781 

16 

157.0 

1 . 17/36 

0.0001 1 

0.39991 

0.00009 

0.000o4 

17 

165.0 

1 • 5 y 5 6 

0.00764 

0.95518 

0 » 00 461 

0.03209 

18 

173.0 

1 .78037 

0.00832 

0.951 1 7 

0,00467 

0.0.-.601 

< 9 

183.0 

1.56372 

0.00624 

0.95605 

0.00399 

0.03333 


4 «>T.O 

1.42941 

0.00047 

0.95516 

0,00383 

0,03344 



4 08268 

0.00432 

0.9^535 

0.00399 

0.03817 



** 

A. 00005 

0 . 80880 

0.00005 

0.00093 




* 

0.956/5 

0.00326 

O.OTJ 87 

liw 




*”»7 

0 , 00322 

0.032 

1258 

1 , . 




*'0317 

0 . 035 ! 2 

125? 

10683.0 





* A.3327 

1260 

1 0685 * 0 

0 . 00000 





1261 

10696.0 

1 . 76007 

0.000*- 




1262 

10709.0 

1.52344 

0.00031 

0 . Vo a . 



1 2 6 S 

10721.0 

1.42649 

0.00029 

0.96334 

V . V v 


126'* 

IC>31 .0 

1 .27074 

0.00026 

0.95785 

0 , 00020 


1265 

10733.0 

0.08211 

0.00000 

0.79992 

0.00003 

0.0012V 

1266 

lO'Ml'.O 

0.8791? 

0.00016 

0.96392 

0.00018 

0.0231 1 

1267 

10" , 52.0 

i .79904 

O.OOV51 

0.96155 

0.00- 28 

0.03352 

1 268 

10763.0 

1 .34236 

0.00030 

0.96183 

0.00023 

0.03021 

t . 

10774.0 

2.00254 

0.00047 

0.96173 

0.00024 

0.03223 

1270 

10785.0 

l .68634 

0.00034 

0 . 958°6 

0.00020 

0.03037 

1271 

10797.0 

1 . 75503 

0.00036 

0.96345 

0.00021 

0.02912 



averages: 





BKEA 1 H 

M2 VOLUME 

02 CONC 

tn CONC 

CQ2 CONC 

VOLUME' L ) 

/RKEATH(L) 

/BREATH 

/BREATH 

/BREATH 

1.27147 0.00172 

TOTAL N3 VOLUME IN LITERS* 
TOTAI 4 OF BREATHS* 1271 

O.<?4703 

2. J 9273 

0.00095 

0.03036 


fSfti OF DATA . . REAP ANOTHER Flit ' Y NK t 
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ORIGINAL F/,v 1 U 

OF POOR QUALITY 


NITROGEN WASHOUT DATA ANALYSIS 
ENTf R FILENAME ON WHICH DATA IS STORED 
( DEVICE t FILENAME » TYPE ) S DY1 JIERWUI ,N'2W 


A FUl l. REPORT (F) GIVES URFATH BY BREATH PARAMETERS 
A 1 MINUTE REPORT <1) GIVES PARAMETERS FOR 1 MINUTE INTERVALS 
A 5 MINUTE REPORT <5> GIVES PARAMETERS FOR 5 MINUTE INTERVALS 
A SHORT REPORT <S> GIVES THE OVERALL AVERAGES 


CO YOU WANT A FUl L REPORT <F), A l MINUTE REPORT (1) 
A 5 MINUTE REPORT <5>fOR A SHORT REPORT <S) ? 

TYPE < F/1/5/S) • 1 


I AUSE 


ADVANCE CARRIAGE IF DESIRED. RETURN 


N2DATA REPORT 


DATE 


SUB JCCI ID NUMBER- 


STARTING TIME 


EXTERNAL TEMPERATURE 


EXTERNAL GRAVITY 


IMMERSION 


BODY POSITION CODE 


AMBIENT PRESSURE 


DRUG CODE 


BREATH MIXTURE CODE 


EXERCISE CODE 


AMBIENT GAS CODE 


BODY HYDRATION CODE 


COMMENTS' 7 


CIAL CONDITION CODE 


COMMENTS 


ENTER THE SUBJECT'S BODY UFIGHT IN I< * 


ENTER THE SUBJECT'S EST I MATED N2 CONTENT IN LITERS: 


T I ME N ’ VOL / 02 VOL/ C02 VOL/ N2/UFIGHT N 2 CONC/ CHMMUL. 

(m n) rNTERVAl IMTERVAI INTERIM (»] k.g) INTERVAL N2 
ui< 1 ) ( ti l ) * a 1 ) (ml) 

l 1057.44 11938.40 491 .CM 13.49767 0 07741 1057 16 

4.99 I 57.2! 1 0.01300 1234.45 

56.96 534.63 < 1782 0.0< !0 1291.41 

4 P.90 ■ • 17 0.00305 1324 

507.04 0 10 i • 

6 70.44 7980.53 77s'. *52 0.'2A4 7 7 0.0**742 1370.it 

: . . 70 .280*211 0.001741 

8 IV '<0 9. ’9,59 321.17 0.25000 0.00190 1405. «t> 

0.2040 > ' 1 1.71 

12*67 ■ ' 1 ■ i 134.38 

it iii 1.84 i ' 4 144 

12 14. 3 ’ - ' 1463.33 


99 6AH , 99 


13 

12.08 

7247.02 

247.84 

0 ♦ 1 ^ 0^8 

0.00158 

1475.41 

64.15 

337.66 

14 

12.62 

8022 . 86 

285.1 1 

0 ♦ 1 6 J* 4 7 

0.001 

1488.03 

64. 70 

388.43 

15 

10.45 

6435. 98 

278.16 

0.13536 

0 . 00 : 8 4 

1499,48 

65.15 

310.84 

1 6 

1 2 . 50 

3735.69 

308.66 

0.16192 

0.001 16 

1510.98 

65 * c >9 

420.51 

17 

11.20 

9776.81 

?° Q # M 

0*14508 

0.0012 1 

1522.18 

66.18 

408.20 

18 

10.47 

9156.81 

28 ?. e >6 

0.13562 

0.00122 

1532.65 

66.64 

391.91 

19 

10.93 

8746,92 

297.07 

0. 1 415:1 

0.00119 

1543.58 

67.11 

404.73 

20 

o .29 

7559.20 

267.16 

0.12034 

0.001 l • 

1552.87 

67.52 

363.90 

21 

10.61 

1 C 228. 19 

344.54 

0. 13744 

0.00093 

1563.48 

67,98 

469.41 

22 

8.56 

1,421 .31 

290.79 

0. 11038 

0.00097 

1572.04 

68.35 

396,17 

23 

7.93 

8158.42 

273 . 69 

0.102 2 

0.00092 

1579.97 

63.69 

372.87 

24 

7.88 

9452*10 

281.93 

0.10207 

0 . 0 C 079 

1587,85 

69,04 

334.10 

25 

8.98 

9396.11 

320.56 

0.11632 

o . 0009 i 

1596.83 

69.43 

436.73 

26 

6.77 

6 709.58 

> 33. 98 

o . 08749 

0.00096 

1603.60 

69.72 

318.78 

27 

7.45 

3046.30 

268.78 

0.09650 

0.00088 

161 1 .05 

70.05 

366 . 1 ? 

28 

7.81 

9113.00 

305.07 

0.10117 

0 .00082 

1618*86 

70.39 

415,63 

29 

6 . 3 ? 

7008.47 

225.62 

0.08187 

0.00086 

1625.18 

70. 66 

307.39 

30 

9.64 

11420.86 

362 . o 4 

0 . 1 2487 

0.00081 

1634.82 

71.08 

494 . 0 ? 

31 

11.23 

14616.33 

462.58 

0.1454 ? 

0.00073 

1646.05 

71.57 

630.22 

32 

10.67 

11642.66 

421.87 

0.13821 

0.00088 

1656.72 

72.03 

574.76 

33 

8.63 

991 | .68 

320.73 

0.1 1244 

0.00081 

1665.40 

72.41 

436.96 

34 

6.80 

7733.59 

268.99 

0 . 08808 

0 . 00035 

1472.29 

72.70 

366.47 

35 

6.37 

7373.51 

263.86 

0.00251 

0.00082 

1678.57 

72 . 98 

359.48 

*■* / 

6.24 

6916.55 

247.06 

0.08083 

0 . 00036 

1684.81 

73.25 

336 . 59 


•*4 

7512.04 

244.87 

0.08212 

0.00081 

1691.15 

73.53 

333.62 

* 


76 

216.42 

0.06813 

o . 000 79 

1 696.41 

76 

294.85 
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'*« 6.60 


C . 00077 

1702.4 7 

74 . 02 

355.04 

162 

1.82 

W 


* ^7176 

0.00064 

1703.01 

74. 24 

3 fi > 8. 85 

163 

2.19 

8122 . bv / 



* 00071 

1713.33 

74,49 

327.49 

164 

2.29 

8234 . 90 

267 . t . 



1 719,48 

74. 78 

393.75 

165 

1.99 

7510.80 

237.47 

0 i 02 a,w 


- *•> 

75*04 

384.78 

166 

1.97 

7009.65 

220.03 

0 , 0255 ? 

0 ♦ WVv — 


•4 4 

350.74 

167 

2 . 14 

8772.87 

270 . 56 

0.02772 

0.00023 

2 la • . 



168 

1.89 

8361.51 

242.34 

0. 02448 

0.00021 

2159.76 

t W 


169 

2.27 

9930.67 

311.13 

0.02940 

0.00022 

2162.03 

94 00 

t ^ 

170 

2.04 

9507.63 

2 65 . 1 9 

0.02642 

0.00020 

2164.07 

94.09 

361 . 2 V 

m 

1 . ; • 1 

7592 . 87 

229.31 

0.02345 

0.00023 

2165.88 

94.17 

312.42 

172 

2.31 

9223.87 

280 . 34 

0.07992 

0.00024 

2169.19 

94.2 7 

. 101.93 

173 

2 . 36 

10104.62 

304.94 

0.03057 

0.90022 

2170.55 

94.37 

415.43 

174 

1.83 

94 29.44 

243.98 

0.02370 

0.00021 

2172.38 

94.45 

332.40 

175 

1 .90 

9398.94 

291.70 

0*02461 

0.00019 

8174. 28 

94.53 

3 V 7.41 

17 c 

1.72 

9246.69 

29 1 . 06 

0.02228 

0.00018 

2176.00 

94.61 

3 P 2.91 

1 77 

1.41 

6099 , 0 l 

179.05 

0.01826 

0.00019 

2177.41 

94.67 

243.03 

178 

1.74 

7718.02 

241 .92 

0.02254 

0.00022 

2179. 15 

9 4,75 

329.60 

179 

1 . 44 

6590.36 

209.17 

0.01865 

0.00015 

2180.59 

94.31 

284 . oo 


averages: 


BREATH 

N2 VOLUME 

02 CC 1 1 

M2 COMC 

C02 CONC 

VULUrlE < L > 

/PREATH(L) 

/BREATH 

/E<K£hTH 

/BREATH 

1.27147 

0.00172 

0.94703 

0.00095 

0.03036 


total N2 VOLUME IN L J TEF‘3= 2.18273 
TOTAL l t?F BREATHS* 1271 

OK.G..1A’. P;\: : ; c . 

OF POOR QUALITY 

FND OF DATA. .READ ANOT HER FILE U N't Y 



tcs 


ORIGINAL PAGE (3 

NITROGEN WASHOUT DATA ANALYSIS 0fr POOR QUALITY 

ENTER FILENAME CN WHICH DATA IS STORED 
* DEVICE ! r II T NAhE . TYRE ) ? DY1 5 IERWU1 . N?W 

A FULL REPORT <F) GIVES BREATH BY BREATH PARAMETERS 
A 1 MINUTE REPORT <1> GIVES PARAMETERS FOR 1 MINUTE INTERVALS 
A 5 MINUTE REPORT (5) GIVES PARAMETERS FOR 5 MINUTE INTERVALS 
A SHORT REPORT <S> GIVES THE OVERALL AVERAGES 

DO YOU WANT A FULL REPORT <F) t A 1 MINUTE REPORT <1)> 

A 5 MINUTE REPORT <5>.GR A SHORT REPORT (S) ? 

TYPE (F/1/5/S): 5 

PAUSE — ADVANCE. CARRIAGE IF DESIRED. RETURN 


N?DAT A REPORT 


IERWUl 

SUBJECT ID NUMBER? 

EXTERNAL TEMPERATURE? 0.00 

IMMERSION? NO 

AMBIENT PRESSURE? 0.00 

EXERCISE CODE? 0 

BODY HYDRATION CODE? 0 

SPECIAL CONDITION CODE? 0 

COMMENTS? 


AGE? 0 DATE? l-DEC-81 
STARTING TIME? 

EXTERNAL GRAVITY? 0 
BODY POSITION CODE? 0 
DRUG CODE ? 0 
BREATH MIXTURE CODE? 0 
AMBIENT GAS CODE? 0 
COMMENTS? NO 
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ENTER THE SUBJECT'S TODY WEIGHT IN Is! 77.3 


ORIGINAL F ’~E IS 
OF POOR O' > 


ENTER THE SUBJECT'S ESTIMATED N 2 CONTENT IN LITERS! 2.3 


TIME 

N2 VOL/ 

02 VOL/ 

C02 VOL/ 

N2/UF1GHT 

N2 CONC/ 

CUMMUL . 

% OF EST. 

BrlR 

(nun) 

INTERVAL 

INTERVAL 

INTERVAL 

(n.l/ka) 

INTERVAL 

N2 

N2 CONT. 

(BTU/hr > 


< m l ) 

(nil ) 

(ml > 



(ml) 

(%> 


5 

1349.87 

53246.28 

1910.77 

17.48537 

0.01653 

1349.37 

58.69 

520.65 

10 

84.51 

41308.30 

1381.75 

1.09469 

0.00107 

1434.38 

62.36 

376.50 

15 

64.10 

37765.59 

1323.08 

0,03031 

0.00161 

1498.48 

65.15 

360.51 

20 

54.39 

41975.43 

1460.17 

0.70453 

0.00123 

1552.87 

67.52 

397.8/ 

25 

43.96 

45656.13 

1511.51 

0.56943 

0.00091 

1596.83 

69.43 

411.86 

30 

37.99 

42298,21 

1396.12 

0.49210 

0.00087 

1634.82 

71.08 

380.41 

35 

43.75 

51277.77 

1738.03 

0.56671 

0.00081 

1678.57 

72.98 

473.58 

40 

29.44 

36199 19 

1239*68 

0.381 35 

0 . 00077 

1708.01 ’ 

74.26 

337,79 

45 

41. 9Q 

41562.05 

1353.97 

0.54275 

0.00100 

1749.91 

76 . 08 

368.93 

50 

30. 1 3 

41909.43 

1349.61 

0.39028 

0 . 00065 

1780.04 

77 . 39 

367.74 

55 

26.74 

46125.07 

1452.00 

0.34637 

0.00054 

1806.78 

78.56 

395.64 

60 

23.51 

43617.86 

1393.54 

0.30453 

0.00051 

1830.29 

79 . 58 

• rt .71 

65 

24 . 94 

40958.88 

1405.17 

0 . 32306 

0,00058 

1855.23 

80.66 

382.88 

70 

19.91 

3"M31 .40 

1269.87 

0.25790 

0.00051 

1875.14 

81.53 

346.01 

75 

18.88 

39210.10 

1230.53 

0.24456 

0.00046 

1894.02 

82.35 

335.30 

80 

18.62 

40979.50 

1244.67 

0.24119 

0.00043 

1912.64 

83.16 

339.15 

85 

20.39 

45240.64 

1426.25 

0.26412 

0.00043 

1933.03 

84.04 

388.63 

90 

21 . 10 

54S72.51 

1620.45 

0.27332 

0.00038 

1954.13 

84 . 96 

441.54 

95 

17.45 

41760.23 

1213.42 

0.22604 

0.00040 

1971.58 

85.72 

330 .63 

100 

16.98 

42485 . 95 

1355.14 

0.21995 

0.00037 

1988.56 

86.46 

369.25 

105 

14.79 

40231.99 

1347.70 

0.19158 

0 . 00035 

2003.35 

87.10 

367.22 

1 10 

15.91 

43093. 18 

1414.17 

0.20609 

0.00035 

2019.26 

87.79 

385*33 

115 

15.45 

41953.68 

1310.54 

0.20013 

0.00036 

2034.71 

83.47 

357.09 

120 

14.87 

45553.75 

1400.65 

0. 1 9262 

0 . 00030 

2049.58 

89.11 

381.65 

125 

13.82 

47164.87 

1477.40 

0.17902 

0 . 00028 

2063.40 

89.71 

402.56 

130 

12.19 

39932.64 

1288.64 

0.15790 

0.00029 

2077.59 

90.24 

351 .13 

135 

11.67 

41307.94 

1264. 48 

0.15117 

0.00026 

2087.26 

90.75 

344.54 

140 

1 1 .05 

39403.1 1 

1274.23 

0.14313 

0 . 00027 

2098.31 

91.23 

347*20 

1 45 

11.13 

40149.90 

1334.43 

0.14417 

0.00026 

2109.44 

91.71 

363.61 

1 50 

10.94 

A 4 3 *1 * • * 5 

1327.57 

0,14171 

0.00022 

2120.38 

92.19 

361 • 74 

155 

12.65 

48831 .21 

1485.62 

0.16386 

0 . 00025 

2133.03 

92 . 74 

404.80 

160 

10.70 

AOS 33 .*4 

1302.66 

0 . 1 3860 

0.000 ’4 

2143.73 

93.21 

J54.95 

165 

10.03 

3*201 ♦ 57 

1179.06 

0.1799' 

0 . 00026 

2153.76 

93.6 4 

321 . 2 7 

1 •’o 

1 0 . 3 1 

43582.33 

1 309 . 25 

0.13355 

0.00022 

2164.07 

94 . 09 

356.74 

1 75 

10.21 

44749*04 

1 350 . 77 

0,13225 

0 00022 

2174.28 

94.53 

267.92 


averages: 


BREATH 
VOLUME < L ) 

M2 VOI UHf 
/BREATH (L ) 

02 TONC 
/BREATH 

N2 CONC 
/BREATH 

CO? CONC 
/BREATH 

1 .27147 

0.00172 

0.94703 

0 . 00095 

0.03036 

TOTAI N 2 VOLUME IN HTfS'S* 

2. 18273 



Tirol * CE P? 

■f ->THS= 1271 





ENIl OF DATA . .READ ANOTHER l ,LI N'J Y 
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NITROGEN WASHOUT DATA HNAI ISIS 
ENTER F ILENAHE ON WHICH DATA IS STORED 
< DEVICE {FILENAME . TYPE ) : DYt > IERWW1 « N2W 

A FULL REPORT <F> GIVES BREATH BY BREATH PARAME ! ERS 
A 1 HTNUTE REPORT vl> GIVES PARAMETERS FOR 1 MINUTE INTERVALS 
A 5 MINUTE REPORT (5) GIVES PARAMETERS FOR 5 MINUTE INTERVALS 
A SHORT REPORT (S> GIVES THE OVERALL AVERAGES 

DO YOU WANT A FULL REPORT <F>» A 1 MINUTE REPORT (1). 

A 5 MINUTE REPORT (5>»0R A SHORT REPORT (S) ? 

TYFfc (F/l/S/S): S 

PAUSE -- ADVANCE CARRIAGE IF DESIRED. RETURN 


OrtlGlMAL PAGE 13 
OF POOR QUALITY 


N2DATA REPORT 


IERWUt 

SUBJECT ID NUMBER! 

EXTERNAL TEMPERATURE: 0.00 

IMMERSION ? NO 

AMBIENT PRESSURE: 0.00 

EXERCISE CODE: 0 

BODY HYDRATION CODE.* 0 

SPECIAL CONDITION CODE: 0 

comments: 


age: o date: i-dec-si 

STARTING TIME: 

EXTERNAL GRAVITY 1 0 

BODY POSITION CODE: 0 

DRUG code: 0 

BREATH MIXTURE CODE : 0 

AMBIENT GAS CODE: 0 

COMMENTS? NO 


averages: 


BREATH 

N2 VOLUME 

02 C0NC 

N2 CONC 

C02 CONC 

VOL UnF « L ) 

/BREATH* 1. ) 

/BRE A TH 

/BREATH 

/ BREA TH 

1 .271 17 

0.00172 

0.94703 

0 . 00095 

0.03036 


TCI AL N2 VOLUME IN LITERS* 2.18223 
TOTAI ♦ OF BREATHS* 1271 


END Ilf iA TA . . Rf AD ANO I HP k MLE «T N : N 


s I UP 


1G3 


i. r-. ■ - C '<2 

ORfGWAL PAGZ f3 

OF POOS QUALITY 

‘?a 

, R UPDATE 

ENTER FILENAME ON WHICH DATA IS STORED 

(DEVICE I FILENAME. TYPE) : DYt IENTNW1 ♦ N2W 

ENTER FILENAME ON WHICH DATA IS TO PE PLACED 
(DEVICE: FILENAME. TYPE): SYJTEST.UPD 

STOP — 




e.S UPOATE PROGRAM 















7.0 HARDWARE OPERATION 

7.1 OVERVIEW 

Hie volume of nitrogen eliminated from a subject Is measured on a breath 
by breath basis by carefully measuring the volume and the gas composition 
of each expired breath. A Perkin-Elmer Medical Gas Analyzer 1100 Mass 
Spectrometer is used to measure the concentrations of nitrogen, oxygen, 
and carbon dioxide (in percent of total gas concentration) in expired 
breaths and the nitrogen concentration of the inspired air. The volume of 
nitrogen eliminated is equal to the breath volume times the concentration 
of nitrogen in the expired air less the volume of nitrogen inspired (this 
should be zero when breathing pure oxygen). The mass spectrometer has two 
nitrogen range settings, 0-100% and 0-10% to allow for greater resolution 
of nitrogen concentration at low levels. The output signal for each 
channel is 0-10 volts, including the two nitrogen ranges. 

Breath volume is determined by a Skylab exhalation spirometer. The 
spirometer is a dry roller seal type which outputs an increasing voltage 
(approximately 0-7 volts) as the measured breath volume increases. The 
maximum measurable volume is five liters. After each breath, a five volt 
signal from the computer activates a solenoid which dumps the spirometer. 
The dump solenoid is gas driven and is connected to a high pressure (160 
PSI) nitrogen source. A return spring empties the spirometer chamber, 
forcing over four liters of air out in less than 0.25 seconds. The breath 
is determined to be over when five consecutive samples of the spirometer 
input have not increased. The accuracy of the spirometer has been 
measured and is within 2% of the actual volume (1.000 liter reads 1.000 + 
0 . 0201 ). 

Calibration of the mass spectrometer is performed by analyzing calibration 
gases of known purity and concentrations and determining slope and 
intercept values for each of the three gases analyzed (N2, C02, and 02). 
Real time analysis solves the linear equation y (% concentration) = slope 
x mass spectrometer output + b (intercept). Three N2 concentrations are 
used to provide high and low range calibration curves for each N2 range. 

The LSI-11/02 measures the gas concentrations and breath volume by means 
of an ADAC 1030 analog to digital converter. The ADAC 1030 has 8 channels 
for di fferential analog input signals. Sampling of the analog input 
determines a digital output to the computer of an integer from 0-2047. 
The gain and channel selection is under computer software control. It is 
this count which is converted to the appropriate measurement (% or liters) 
by means of the slope and intercept determined by the calibration 
procedure. 

The spirometer is calibrated by emptying the spirometer and having the 
computer sample the zero volume output. A one liter volume is simulated 
by the computer and determines the high calibration volume. Slope and 
intercept values are then calculated from the zero and one liter values. 

Breath volume is continuously updated during a breath; a breath being 
defined as a spirometer analog output being greater than a minimum noise 
gate over the zero volume output. Consecutive volume samples are compared 
to each other to determine if the breath volume is still increasing. If 
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there is no additional volume measured between five samplings, the breath 
is considered to be over. The computer then loads one ADAC 1030 digital 
to analog channel with a 5 volt signal to the spirometer controller that 
dumps the spirometer. The spirometer purges to the ambient air. 

The parallel interface board (ADAC 1632 TTL ) output controls the three 12 
volt calibration gas solenoids and valves, and the LED breath indicators. 
The input buffer reads the mass spectrometer nitrogen range select switch 
and inlet valve select position. 

The MDB KW11P Programmable Clock board regulates the interrupt timings for 
the subroutine SAMPLE. The two MDB DLV11 serial interface boards allow 
the use of either the printing terminal or a CRT terminal. 
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7.2 MASS SPECTROMETER 


The Perkin-Elmer MGA 1100 Mass Spectrometer has been found to have a 
severe baseline drift (approximately + 0.5 %) due to a nitrogen exposure 
problem. When subjected to more than several minutes of gas samples with 
a high (ambient) N2 concentration, several hours may be required to read a 
true 0.00® nitrogen when pure oxygen is being sampled. It is necessary to 
flush pure oxygen into the mass spectrometer for at least two days prior 
to and up to the time of a test. With this flushing, a pure oxygen source 
will read 0.00% N2. The 30 seconds of nitrogen during the calibration 
does not affect the baseline drift for more than the first fifteen minutes 
of the washout, during which time the drift is a small (less than 2%) 
fraction of the expired breath nitrogen concentration. If the mass 
spectrometer is not adequately flushed out, pure oxygen will show up to 
0.5 - 0.6% nitrogen, which is up to twenty times the value that may 
actually exist after a three hour washout. The software subtracts out low 
level nitrogen baseline drifts measured in the inspired air, but cannot 
cancel the effect of large drifts that overwhelm the desired measuranent. 
Following lengthy oxygen flushing and minimizing the mass spectrometer 
exposure to nitrogen has given repeatable three hour washouts on a subject 
that are within 50 ml. of nitrogen of each other. 

Typically, an easy method to flush the mass spectrometer is to insert the 
face mask catheter (inlet #1) into the oxygen tent 02 line set at a low 
flow. The Inlet select switch must be switched to inlet #2 during 
calibration and returned to inlet #1 for the test and no longer than one 
or two minutes of ambient nitrogen exposure will occur. 
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7.3 CALIBRATION VALUES 


A read only data file named DATCON.VAL Is stored on the system floppy 
(0 YO : ) , and contains all the Initial calibration values used by the main 
program N2WASH.SAV. Hie three gas mixture calibration gas tank should be 
9* N2, 8b% 02, and 5$ C02 (all + 1 %), Certification must be precise to 
at least 20 parts per million Ib.002%), The first three values In 
DATCON.VAL represent the concentrations of N2 In ambient air, in 100% 02 
and in the three gas mixture. The next three values in DATCON.VAL 
represent the concentrations of 02 in ambient air. In 100% 02 and in the 
three gas mixture. The next three values In DATCON.VAL represent the 
concentrations of C02 In ambient air, In 100% 02 and In the three gas 
mixture. These nine values, all separated by commas, are followed by the 
sample rate and the breath gate. 

Each time a new tank of three gas calibration mixture gas Is received in 
the Environmental Laboratory It will be necessary to change the gas 
percentages In DATCON.VAL. 

In order to change the values listed In DATCON.VAL (originally 
79.0,0.0,9.313,21.0,99.99,82.69,0.05,0.00,7.99,25,15.0) , 


Type 


R LED I TV 

The computer will type: 

LINE-ORIENTED TEXT EDITOR 
VERSION 2.0/A 

FILE (DEVIC E:FILENAME. TYPE) = 


Type 

DYO:DA ICON. VAL 
The computer will type: 

NEW FILE (Y/N)? 

Type 

N (for no) 

The computer will type: 

FILE :DA 1C ON. VAL CONTAINS 1 LINES 

BEGIN TEXT EfiTING 


Type 


L (to list the line) 
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The computer will type the line. The N2, 02, and C02 In the three gas 
mixture are the 3rd, 6th, and 9th values, respectively. 

To replace the current value with a new value type: 

RS:/(current val ue )/ ,/(new value)/ 

To check that the new value has been entered correctly type: 

L (to list the line) 

Repeat the previous 2 steps for each value which needs to be replaced. 
When you are satisfied tnat the line is correct with the new values , 
type : 

END 

This will make the changes permanent. Typing stop will abort the editing 
process and leave DA ICON. VAL in its original form. 


7.4 OPERATING THE N2WASH PROGRAM 


N2WASH collects all the header Information prior to the washout, prompting 
the test operator to enter all the Information. Next, It controls and 
calibrates all of the subsystems necessary to the measurement of the 
washout, determining slopes and Intercepts from calibration values. 
Finally, the program reads all the data during the experiment, performs 
some real time analysis and loads the data to the floppy disk and prints 
out the measured parameters on a breath by breath basis. One minute 
summary reports are also typed out. 

This report assumes that the test operator is familiar with the general 
operation of the DEC LSI-RTli operating system. If this is not so, refer 
to the APPENDIX: RT11 COMMANDS. 

Before starting the program, the following must be available and, where 
appropriate, connected correctly (see Interconnections): 

Perkin-Elmer Mass Spectrometer MGA 1100 
Skylab Exhalation Spirometer and control electronics 
LSI-11/02 Computer console w/floppy disk drive and printing 
terminal 

Breathing 02 gas 

Calibration gases (100% 02, and three gas mixture) 

Mask assembly and hoses to spirometer 

Floppy disk containing N2WASH.SAV on RT-11 version 4.0 Operating 
System (System floppy) 

An initialized, double density, single sided floppy disk 
containing 

at least 400 free blocks for 3 hours worth of data (Data 
FI oppy) 

N2 gas with approximately 160 psi (depends on the actuating 
pressure listed on the air diverter 3-way valve) to drive 
spirometer dunp solenoid 

1. Turn power on the following, (verify with on lights) 

Computer console 

LSI-11/02 computer (Line Time Clock, Run/Halt switches in up 
posi tion) 

Disk drive (write protect off) 

Spirometer controller 

Mass spectrometer (on switch depressed) 

Printing terminal 

2. Open all calibration gas valves (low flow, approximately 5 psi) 

3. Instructions 

a. Insert the system floppy into the left hand slot DY1: with 

the label on the top. The exposed portion is inserted first. 
Push the floppy in all the way and close the door. 
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b. Insert the data floppy In the right hand slot DY1: In the 

same manner and close the door. (Note: DY1: Is vital to 

program startup). 

c. Ihe disk drive will engage (with a series of audible clicks 
and the door LED flashing) and the terminal will respond by 
printl ng : 

RT-11 SJ V04.00A 

.0 56 - 1012 

SET TT : SCOPE 

ASS DY1: DK 

TYPE SY: REMIND. TXT 

ENTER DATE AND TIME 


Enter the current date and time by typing: 

DATE dd-mmm-yy (where dd=day 0-31, mmm=month three letters of 
the month JAN-DEC and yy=year 81,82..., separated by hyphens). 

Press Return 

Type TIME hh:mm (where hh=hours 00-24 and mm=minutes 00-59, 
separated by a colon). 

Press Return 

Verify the time by typing TIME aid return, and the computer will 
respond by printing the updated time. 


To switcn the printing terminal to a CRT terminal, one must type 
R TTY and press return. 

Tire prompt character wil 1 then appear on the CRT (if turned on and 
connected). There will be no hard copy of the test generated unless R TTY 
is again typed in to return control to the printing terminal. This must 
be done while under monitor control, not in the N2WASH program. 
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BOARD CONFIGURATION OF THE LSI-11 MICROCOMPUTER 


Slot Location 

Manufacturer 

Device # 

Description 

1A 

DEC 

M7270 

LSI-11/2 microprocessor 

IB 

DEC 

M8044 

32 K memory 

2A 

MDB 

DLV11 

Serial Interface (1) 

2B 

Data Systems 

DSD480 

Floppy disk interface 

3A & B 

MDB 

KW IIP 

Programmable clock 

4A & B 

ADAC 

1030 

A/D, D/A Programmable Gain 

5A 

ADAC 

1632 TTL 

Parallel Interface 

6A 

MDB 

DLV11 

Serial interface (2) 

6B-7B 

EMPTY 



8A 

MDB 

SMU 

Line clock/system monitoring 
uni t 


MDB 

M2689A 

Power Supply 5/12/12 


Data Systems 

480 

Dual Floppy Disc Drive 


ITT 

43 

Teletype 


Hazel tine 


2000 


CRT 



ORIGINAL PACE IS 

OF POOR QUALITY 


N 2 washout electronics card connector designations 

Top of Plug 2 I 

4 3 

6 5 

8 7 

10 9 

12 11 




14 

13 

Brn V2 

S2 No. 



Clear Ind. Sig. 

Cable Blk 

16 

15 

Red #2 

SI No. 





18 

17 

Rib. Cable 

DRV11 02 Pin 29 (HH) In 

5 Flow 

Meter Cal Done 

SI N.C. Cal Done 

Yel #2 

20 

19 

Or #2 

S3 N.C. Hi Cal Done 





22 

21 

Rib. Cable 

DRV11 J1 Pin 10 (L) Out 

4 Inlet 

Select 

Flow Meter Hi Cal 








Done DRV11 J1 

Rib Cable 

24 

23 

Cable Yel 

Select Inlet #2 



Pin 31 (KK) In 4 


26 

25 

Cable Red 

24 VDC Grnd. from Mass 

Spec 


Select Inlet #1 

Cable Wh 

28 

27 

Ri b. Cable 

DRV11 J Pin 12 (N) Out 

5 Do Hi 

Cal L.E.D. 



30 

29 

Sol . Wire 

Cal #3 83% 0 2 Solenoid 



Do Cal L.E.D. 

DRV11 J1 Pin 14 (R) 

Rib Cable 

32 

31 

Gry 

Red L.E.D. L3 83% 0, 



Out 6 


34 

33 


c 



Capacitor 
C5 3K FD 

Brn 

36 

35 

Blk 

Grnd 





38 

37 

Blk 






40 

39 







42 

41 

Lt. Grn 

Transformer 



Transformer 

Lt. Grn. 

44 

43 






‘’6 45 Red VR #1 Pin 2 

48 47 Red 3K FD Capacitor C5 


+5V O.C. 

VR #1 Pin 1 


Grn #2 


50 49 Red 


VR #1 Pin 2 


+5 V.D.C. 


original pa 

OF POOR Qj_ , 




52 

51 

Or 

VR 

#2 

Pin 

2 




54 

53 

Or 

VR 

#2 

Pin 

2 

+12 V.D.C. 

Capacitor 
3K FD C6 

Red 

56 

55 

Or 

VR 

n 

Pin 

1 



+12 V.D.C. 


10 9 




12 

11 





14 

13 

Brn *2 

S2 No. 

Clear Ind. Slg. 

Cable Blk 

16 

15 

Red 42 

SI No. 



18 

17 

Rib. Cable 

DRV11 J2 Pin 29 (HU ) In 5 Flow Meter Cal Done 

SI N.C. Cal Done 

Yel #2 

20 

19 

Or #2 

S2 N.C. Hi Cal Done 

• 



22 

21 

Rib. Cable 

DRV1 1 J1 Pin 10 (L) Out 1 Inlet Select 

Flow Meter Hi Cal 
Done DRV11 J1 

Rib Cable 

24 

23 

Cable Yel 

Select Inlet #2 

Pin 31 (KK) In 4 


26 

25 

Cable Red 

24 VDC Grnd. from Mass Spec 

Select Inlet #1 

Cable Wh 

28 

27 

Rib. Cable 

DRV11 J1 Pin 12 (N) Out 5 Do Hi Cal L.E.D. 



30 

29 

Sol . Wire 

Cal #3 83% O 2 Solenoid 

Do Cal L . E . D . 

DRV11 J1 Pin 14 (R) 

Rib Cable 

32 

21 

Gry 

Red L.E.D. L3 83% 0, 

Out 6 


34 

33 


C 

Capacitor 
C5 3K FD 

Brn 

36 

35 

Blk 

Grnd 



38 

37 

Blk 




40 

39 





42 

41 

Lt. Grn 

Transformer 

Transformer 

Lt. Grn. 

44 

43 





46 

45 

Red 

VR #1 Pin 2 

+5V D.C. 

VR #1 Pin 1 

Grn #2 

48 

47 

Red 

3K FD Capacitor C5 +5 V.D.C. 



50 

49 

Red 

VR #1 Pi r. 2 



52 

51 

Or 

VR #2 Pin 2 



54 

53 

Or 

VR #2 Pin 2 +12 V.D.C. 

Capaci tor 
3K FD C6 

Red 

56 

55 

Or 

VR 42 Pin 1 


+12 V.D.C. 
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58 57 

60 59 Rib. Cable DRV11 J1 Pin 16 (T) Out 7 Cal #3 On-Off 

62 61 Grn Green L E.D. L5 Do HI Cal 

Amber L.E.D. 

L4 Do Cal Yel 64 63 Sol .Wire Cal #2 100% N 2 Solenoid 

66 65 Vio Red I. E.D. L2 100% N, 

Pin 21 (Y) DRV11 J1 c 

Comp. Grnd Rib Cable 68 67 Rib.Cao le DRVl 1 J1 Pin 17 (U) Out 3 Cal #2 On-Off 

70 69 Sol .Mire Cal #1 100% 0 2 Solenoid 

72 71 Rib. Cable DRV11 J1 Pin 19 (W) Out 8 Cal V. On-Off 


Red L.E.D. LI 
100 % 0 , 


Blu 



A/0 CONVERTER 


Command Statls Register 
Output Buffer 

Bit 0 
(enable) 

Bits 3-4 
gal n 

Bits 8-10 

channel 

selection 


IADCGC (1) 
IADCGC (2) 
IADCGC (3) 
IADCGC (4) 


"1 76 7 70q 
" 1 76772g 

I on 
0 off 

00 x 10 

01 x 5 

10 x 2 

II x 1 

001 ch 2 

010 3 

011 4 

100 5 

101 6 

110 7 

III 8 

"0431 Nitrogen channel enable 

"1031 Oxygen channel enable 

"1431 Carbon Dioxide channel enable 

"2021 Spirometer channel enable 


1 79 


DRV11 PARALLEL BOARD 


Output buffer 167772 

Input buffer 167774 


Output control 
bit 0 
1 
2 

bit 5 4 3 

3 cal gas 1 * 

4 mass spectrometer * * * 

port 1 select 

5 #1 lamp 

6 #2 lamp 

7 cal gas 3 

8 cal gas 2 

I VLVMD 


IVLVMD (1) = "030 
I VLVMD (2) = "420 

IVLVMD (3) = "220 


Input data 
bit 0 
1 
2 

3 

4 

5 

6 
7 


#1 switch 

switches are not used 

#2 switch 

= 0 100% range 

* 1 10% range 


8 


180 


LEGEND 


1 . 3-Way Rudol f Valve 

IA. One way valve from regulator (4) to face mask Inhalation port 
(open on Inspiration) 

IB. One way valve from face mask exhalation port (3) to spirometer 
(open on exhalation) 

2. 3-Way Rudolf Valve 

2A. One way valve from 1 to spirometer (open on exhalation) 

2B. Sample port for mass spectrometer catheter #1 
2C. Adapter to demand regulator (4) 

3. Sierra Firefighters Face Mask 651-02-4 
3A. Inhalation port 

3B, Exhalation port 

4. 900-002-074-01 Regulator 

4A. High pressure 02 supply hose to regulator 
4B. High pressure 02 supply hose to 02 source 

5. Mass spectrometer catheter #1 from mass spectrometer Inlet #1 to sample 
port (2B) 

6 Oxygen tent 0? supply hose (from 0? source to inside 0? positive pressure 
tent) 

7 Air Diverter 3-Way Valve 
7A. Opening to face mask 

7B . Opening to ambient air (note: connect only between A+B or A+C) 

7C. Opening to spirometer Intake port 

8. Nitrogen gas solenoid drive connector (3/8" swagelock stainless fitting) 

9. Spirometer dump port 
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9.0 APPEND IX : RT-11 COMMANDS 


9.1 SPECIAL FUNCTION KEYS 

The special functions of certain terminal keys you need for communication 
with the keyboard monitor are explained below. A more complete list of 
special function keys and commands Is provided In section 3 of the RT-11 
System User' s Guide. 

Enter C TRL commands by holding the CTRL key down while typing the 
appropriate letter. 

CTRL/C tenml nates program execution and returns control to the keyboard 

monitor. C TkL/C echoes C on the terminal. You must type two 
CTRL/C 's to terminate execution unless the program to be 
terminated Is waiting for terminal Input or Is using the TT 
handler for Input. In these cases, one C TRL/C terminates 
execution. 

C TRL/0 causes RT-11 to suppress terminal output while continuing 

program execution. CTRL/0 echoes 0 on the terminal. RT-11 
enables terminal output when one of the following occurs: 

1. You type a second C TKL/0. 

2. You return the control to the monitor by typing CTRL/C when 
program terminates. 

Note that when you are using CTRL/0 the system can print an 
extraneous character after the monitor ecnoes tne C TRL/0 and a 
carriage return/llne feed. 

CTRL/Q resumes printing characters on the terminal from the point 
previously stopped because of a C TRL/S. 

CTRL/S temporarily suspends output to the terminal irtll you type a 

CTRL/0. CTRL/S does not echo. You can alternate between CTRL/S 
and CTRL/0 to temporari’y stop and then resume the display of 
output or. a CRT terminal. Type CTRL/S when the screen Is almost 
full , tnen CTRL/Q to continue when you are ready. 

DELETE OR RUBOUT deletes the last character from the current line and 

echoes a backlash plus the character deleted. Each RUBOUT 
succeeding DELETE deletes and echoes another character. The 
systam prints an enclosing backlash when you type a key other than 
DELETE. This erasure Is performed from right to left us to the 
beginning of the current line. 

If you are using a video display terminal and you have Issued the 
SET TT SCOPE command, DELETE erases the characters with a 
backspace, space, backspace sequence. Your corrections appear on 
the screen; RUBOUT does not enclose them with backlash 
characters. 
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9.2 USING THE SYSTtM UTIUTltS FUR FILE MA1NTEWCE 

Keyboard conmands let you communicate with the R T-l L monitor to allocate 
system resources, start programs, and use various services. 

The following keyboard commands are the ones most frequently used with our 
LSI-11 computers. 

They should be used regularly to do such things as obtaining listings of 
the directory Information for the data floppies and making backup copies 
of files. For more detailed Information about using these or other 
commands, refer to the DEC R T-l 1 System User's Guide. 

Some of the more commonly used RT-I1 commands for performing file 

maintenance tasks are listed below. They may be used In any order, 

whenever the system has typed a to let you know It Is ready. 

All Information that you enter Is mderllned here. Anything which Is not 
underlined Is typed by the computer. 

A. Initializing a Floppy Disk 

This Is done either: 

1. When you want to use a new floppy disk which has never been 
used before, or 

2. When a floppy has old data on It which 1 s of no value, and 

you want to remove the old Information so that the floppy can 

be used again. 


To Initialize tne floppy, put It In the right hand disk slot and 
type : 

UJ_K OYI : 

The system will then type: DIR-F-I1 legal Directory (If the 

floppy Is new and has never been Initialized before), or It will 

type a list of the files already stored In the floppy. Make sure 

tnat there are none that you might want to save. 

Next type: 

INI T/UA D/VUL OYI : 

When the system asks "Are you sure?", check to make sure that you 
have the correct floppy In DY1 and tnat you have not erroneously 
typed DYO Instead of DY1. The type Y (for Yes) followed by a 
carriage return. If you are not sure, type N Instead, and repeat 
the INIT command. 

The /GAD option wl tn the INIT command will cause the floppy to be 
checked for any bad blocks that might be present on It. This 
will take a minute or so. When finished, the system will type 
TOUP-I-No bad blocks detected OYI: If the floppy has no bad 

spots. It will then ask for a vol une (or floppy) identification 
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code, foil wed by the owner name. You may type In anything you 
want for these two entries, but each must be 12 characters or 
less In lenoth. Including spaces, hyphens, etc. Typically, you 
would use a floppy ID nunber or code for the Volune ID . and the 
laboratory name (or your own name) for the owner. For example: 

Volime ID? Disk 52A 

Owner? G Washington 

The INIT command causes the directory on the floppy In DY1 to be 
zeroed out. This effectively erases the Information on It. 
Although It Is sometimes possible to retrieve Information from a 
floppy after It has had Its directory zeroed (If nothing on It 
has been overwrl tten) , It Is rather difficult and generally not 
practical . 

a. Getting a Floppy Directory (Contents) Listing 

To get a complete, formatted sunmary of what Is stored on a 
floppy disk, type the following: 

DIR/VOL/FULL/BLUCKS DY1 : (Carriage Return) 

This causes a listing of the file names, their creation dates, 
and other Information concerning such things as their physical 
locations on the floppy In DY1 to be printed on tne terminal. 
The date printed for each file Is the date the file was created 
or last modified, whichever Is later. 

To get a simplified directory listing, type: 

DIR \m± (Return). 

A listing of each subject data floppy, using the DIR command, 
snould oe obtained regularly if data files are being created on 
It. This should preferably be done at the end of each day In 
wnlch tests were run. The latest listing for each floppy should 
be saved in order to help keep track of what Information Is on 
each floppy, and also because It can sometimes be useful In 
retrieving files which have accidentally been deleted or 
overwritten. Lach such listing snould be labeled to correspond 
with tne particular floppy It sumnarlzes, and then taped on the 
special protective envelope for that floppy. Alternatively, the 
listings can be kept In a notebook. 

If you need to see If a particular file Is on a floppy without 
getting a complete listing, put the floppy In DY1 and type: 

DIR DY1 :n am e.suf (Return) 

Here name is the filename that you used when creating the file, 
and "suf" Is the 3-letter suffix (or extension or file type) for 
that file. If you are not sure what the suffix Is, just type 
DIR.DY1: name with no period following the name. If the file 


I 
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exists on tne floppy, the system will print a line co>;Uln1no the 
directory Information for that file, preceeded by the date if It 
has been entered Into the system, and followed by the tou.1 
number of files listed (not the total nunber on the floppy) and 
the nunber of free (mused) blocks on It. The nunber of free 
blocks can be used to estimate how many more subject data files 
can oe stored on the floppy. If the requested filename does not 
exist on the floppy, then only the date, "0 files", and nunber of 
free blocks will be printed. Therefore, this Is also an easy way 
of determining how much unused space Is on the floppy. V>te that 
the unused space may not all be In one contiguous area, however, 
tne /FULL option can be used to tell you where the unused blocks 
are distributed. 

C. Deleting Files 

To delete a single file which has erroneous or useless 
Information on It, put the floppy In DYl (the right hand disk 
slot), and type: 

DE LE Tt DYl :name. suf followed by a carriage return. 

Where "name" Is the filename that you want to delete. This can 
be repeated for several files. If desired, ae sure that the 
fl’ename Is entered correctly, because a different file could be 
Inadvertantly deleted If the Incorrect filename Is typed In. The 
system will type the file name followed by "?". 

Respond wl tn Y (Return) If you are sure that you want to delete a 
file. 

D. Renaming a File 

If a test has been run ano It Is later discovered that an 
Incorrect filename was used throughout, then It can be renamed, 
without changing any of the data stored In It, by Inserting the 
floppy Into DYl and typing: 

RtNAME DYl :o1d name.suf DYl :newname.suf 

Where "newname" Is the new filename under which you want the data 
to be stored, and "oldname" Is the old filename that was 
previously used. 

For example: 

RENAME DYl: TU09UU.DA T DYl : TUI JOO.DA T 

will cause the filename for file TU0900.DAT to be changed to 
TU1U00.DAT and the old filename will no longer exist. 

E. Copying Data Files (Making Disk Backups) 


19b 


Data files may be copied from one floppy to another very easily. 
This enables one ~>r more backup copies to be made of all 
Important data. 

To copy all files from one floppy disk to another, do the 
following: 

1. Initialize the blank floppy you are going to copy onto as 
described above In "A. Initializing a Floppy Disk". Note 
that this will destroy any Information stored on It, so be 
sure you have used a floppy which does not have any data that 
you want to save. 

This step can be skipped If you are only going to add or 

replace files on a floppy which already has files on It. 

2. Several options are now available depending on what you want 
to do. 

(a) To copy all files from DYO to DY1, type: 

COPY/ MAI T/SYS DYU:«.« DY1*.* 

(You do not need to Include /SYS unless you are copying 
system files from a system floppy.) 

The system will then let you take out the svstem floppy 
(If It Is not the one you are copying from) and replace 

It wl tn whatever floppy has the files you wish to copy. 

(The /UAIT option Is not necessary If you are copying 
from your system floppy.) This process can take from 
several seconds to several minutes, depending on how many 
files are being copied. When the system has finished. It 
will tell you to replace (mount) the original system 
floppy back In 0 YO : (If you used the /WAIT option), and 

tnen let you type Y when you are ready. The system will 
type a period when It Is ready for a new command. 

(b) To copy only those files with the current date (which 
were created or last modified today), Include /NEWFILES 
In the list of options with tne copy command. 

COPY/NEUFILES/MAIT DY0:«.« DY1 :* .* 

The /NEWFILES causes the system to compare the dates of 
each file In the disk directory with the current date 
entered previously with the DA TE command. Therefore, the 
current date must have been entered correctly when the 
computer was powered up In order for this to work 
properly. 

(c) To selectively copy certain files. Include /Q (for QUERY) 
In the list of options. For example: 
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CQP Y/SYS/g PVO:».« DY1 :*.« 


The /g causes the system to Individually list each 

filename on dyo to see If It Is to he copied. To bypass 

copying a particular file, simply hit the Carriage Return 
Ke“ after tne filename Is printed. For files that you do 
want to copy, type Y(Return) (Y for yes) after their 

names. For example: If DYO has files named A. OAT, 

B.DAT, and C.OAT on It and you want to copy only A. DAT 
and C.OAT do the following (your responses are underlined 
as usual ) : 

Type : 


COPY/g DY0:» .* DY1 :* ,* 

A .DAT? Y(Return) (yes, copy It) 

0 .DAT? (Return) (no, do not copy It) 

C .DAT? Y( Ret urn) (yes, copy It) 

(d) To copy one or a few files from DYO to DY1, type: 
CU PY/SYS/ wAI T DYO:ran.c.suf DY1:V» 

*iere "name" Is the filename. This can he repeated for 
jveral files. If desired. 


3. A oackup system floppy can he created In a similar manner. 
First, put a blank floppy In DY1 and perform step (1) above. 
Next, type: 

COPY/SYS DVQ:«.« DY1 :* .* (A list of files copied will 
fol low.) 

CUPY/BUOT DY1 : R T1 lbJ DY1 : 

DY1 now contains a floppy which has all of the files that the 
original system floppy had on It. Note that the copying 
caused hy the first line above may take a minute or so to 
perform, so wall until It Is finished and the systan responds 
wi tn another "." before typing the second line. 

4. These procedures can be used regularly to maintain backup 
copies of all data files. The recommended procedure Is: 

(a) First, perform step (1) above. 

(b) Second, perform step (2) (a) to copy all the files onto a 
new backup fl oppy. 

(c) Third, perform step (2) (b) at the end of each day to 

copy new files onto the backup floppy. As an 

alternative, the new files from one or more days may be 
copied using tne procedures In steps (2) (c) or (2) (d). 
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It Is probably best to keep two backup floppies. In addition 
to the original, tor Important files, since (t takes only a 
few minutes to perform the copying operation. 

It you try to copy a data file from one floppy onto another 
that already contains a tile with the same name, then the 
tile on the floppy being copied Into will be deleted and the 
copy operation will be performed as requested. Normally, 
this Is not really problem, since flies with the same name 
Should generally be Identical. However, It an erroneous 
flllMM was entered when creating a file, for example, then 
It Is possible that this file might replace one on the backup 
floppy unlntentloanl ' /. I* old happen of the file was 

copied before correcting the filename using the Readme 
command (step 0 above), therefore, be particularly careful 
when entering filenames or copying with possibly erroneous 
filenames, since valuable data might be deleted. Frequently 
the /NUREPLACf option with the COPY commend win help to 
avoid this potential problem. 


F . Getting Help with System Commands 

If you do not remember which command or option to use for a 
particular function, or the syntax for a particular command, use 
the HtLP command. If you type only HELP followed by a carriage 
return. Information on the help command Itself will be typed. 
For a list of all the possible commands 1 some are not always 
available, depending on which system disk you are presently 
using), type HELP (Return). For more Information on one of these 
commends. Including pov.lble options, type HELP 1 s pace)' CQWk nano . 
where “command" Is the name of the command Tor the first few 
letters of it'. For example, for Information on the DIRECTORY 
(or DIR) command, type: 

HtLP DIR followed by a carriage return. 

If the Information typed Is not clear or you need more details, 
refer to the ri-u system User's Guide* The first hclf of that 
manual contains an alphabetized list of all commands, with 
complete Information and examples on most options. 
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breath gate - the mlnlmun noise level of the spirometer. Also referred to 
as mlnlmun noise gate. 

Oa LON. VAL - d ddtd file on tne system disk which contdlns the defdult 
vdlues for calibrating the spirometer and mass spectrometer. 

UECOAT - d program on the system disk which accepts Information from the 
test operator on a decompression experience experiment, types a report on 
the printing terminal, then stores the data In a data file. 

UY1: - the disk drive device on the right where a floppy disk can be 

Inserted, e.g., for a data file. 

External gravity - the gravity outside of the experimental envl romnent, 
one If the experimnt Is conducted at ground level and zero If conducted In 
space. 

NiflJA TA - a progrmn on the system disk which reads the nitrogen washout 
data from a data file and types a report on the printing terminal. 

WASH - tne main program on the system disk which calibrates the 
spirometer and spectrometer , records the data during a nitrogen washout 
experiment and stores It In a data file. 

P01WPT - a program on tne system disk which accepts Information from the 
test operator on the physical cnaracterl sties of a subject, types a report 
on tne printing terminal and stores the data In a data file. 

UPDATE - a program on a system d<sk which reads an unformatted nitrogen 
washout data file, formats the data, then stores It In a data file. 
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